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FOREWORD 


This document, though an official release of the Apollo Program Office, is furnished 
for information purposes only. Its purpose is to create awareness, stimulate interest 
and further promote understanding in the art and science of making real-life forecasts 
and their subsequent utilization in the control of space vehicle weight and performance 
throughout the Apollo Program. 

This book is primarily intended for those in the Apollo Program who are responsible 
for the administration, design, development, manufacture, and test of the Apollo Sys- 
tem . New theorems have been developed , as well as application of proven techniques 
but more importantly, a weight/performance forecasting methodology has been devel- 
oped and automated. The text emphasizes the utilization of forecasting devices as ap- 
plied to space vehicle weight and performance since these two parameters are of vital 
interest to all levels of management as well as technical personnel. Further, weight 
is tangible and readily measurable and can be readily related to performance. 

The text provides, to those who wish to apply the developed methodology, all details 
necessary to do so and includes the mathematical development, computer program 
user's manuals and necessary instructions and procedures. 

Forecasts and Appraisals for Management Evaluation text is intended to be a construc- 
tive aid to the NASA Apollo team in assisting them in the weight and performance area. 



Samuel C. Phillips " 
Major General, USAF 
Director, Apollo Program 
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APPENDIX A 


WEIGHT/PERFORMANCE DATA 


A. 1 INPUT DATA FLOW 
A. 1. 1 MEASURING INDICES 

The establishment and documentation of control indices was achieved in the Apollo pro- 
gram through publication by the NASA Office of Manned Space Flight, of the Apollo Pro- 
gram Specification . This document establishes control values for vehicle weights and 
payload capabilities. Control weights were established separately for early Saturn IB 
and Saturn V mission vehicles and the operational vehicles. Each set of control values 
for the Saturn IB and Saturn V Launch Vehicle and the Block I and Block II Spacecraft 
are based upon the mission objectives and requirements presented in the Manned Space 
Flight Program Directive, Apollo Flight Mission Assignments . They include the typi- 
cal information shown in Figure A-l. 

A. 1. 2 WEIGHT/PERFORMANCE DATA FLOW 

The second requirement, a periodic flow of current weight/performance status data, 
was met by the development of two documents, the Office of Manned Space Flight , 

Apollo Program Mass Properties Standard and the Office of Manned Space Flight Weight 
and Performance Data Submittal Requirements . The first of these two documents, the 
Mass Properties Standard was prepared for the Apollo Program primarily as a guide 
for contractor use in controlling and reporting mass property data to the Marshall 
Space Flight Center and the Manned Space Flight Center. It established a system for 
the management of mass properties in the design and use of space vehicles. The docu- 
ment was designed for three objectives: 

a. To permit the organization of systematized, verifiable, and controllable 
mass properties of vehicle systems. 

b. To facilitate rapid establishment and reporting of inputs for the weight/ 
performance relationship. 

c. To enable parametric extrapolation from reported systems to newly 
evolving systems. 

Included in this standard, in addition to the specific definition of the many terms fre- 
quently used in discussion of mass properties and control are detail description and 
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submittal frequencies for the type of mass property reports required throughout the 
various program phases. Illustrated in Figure A-2 are the reports required from func- 
tional studies through flight operations. The reporting formats to be utilized are 
shown in Figures A-3 through A-ll. 

In addition, the standard provides a functional code system for a three-generation 
breakdown of vehicle items according to their functional use. The objectives of the 
functional code are: 

a. To provide a basis for computing weight summaries. 

b. To allow direct substantiation of weight summaries and analysis methods. 

c. To provide a uniform basis for design weight comparison of vehicle 
system. 

d. To facilitate the preparation of weight summaries for complete vehicles, 
in such a way that a given section, stage, or module summary may be 
readily included in the summary of the total vehicle. 

e. To provide identifiable vehicle coordinate location data. 

The functional code, along with the nomenclature employed, are considered as the 
basic functional breakdown of vehicle items. The code consists of first-generation 
items, each of which is broken down into second-generation items. The second-generation 
items are further broken down into third-generation items. The first 16 first-generation 
codes include items which are essentially fixed in location and weight. The summary 
of these items is the dry weight of the particular stage or module being considered. 

The remaining first-generation code items include items which are variable either in 
location or weight. The summary of these items in a given stage or module configura- 
tion, as in flight sequence, is the variable weight and this weight when added to the dry 
weight is the total weight of the particular stage or module for the particular configura- 
tion. For example, this weight would be the total weight at lift-off, at a particular 
point in time, or at separation. 

The second document, Weight and Performance Data Submittal Requirements , es- 
tablishes the minimum requirements for uniform weight and performance data sub- 
mittals. These inputs are to be supplied by the appropriate NASA Centers to the office 
of Manned Space Flight support of the Apollo Program Office Weight/Performance 
Management System for the surveillance and assessment of the Apollo Program Status. 


, This document, from a data flow point of view, actually completes the data flow cycle. 
The standard closed the data gap between the contractors and the NASA Centers, and 
the Submittal Requirements closes the data gap between the NASA Centers and the 
Office of Manned Space Flight. 

The Weight and Performance Data Submittal Requirements document, like the 
standard, includes, for each data submittal requirement, a detail description and sub- 
mittal schedule for the type data to be reported and the formats to be utilized. Each of 
these data submittal requirements is discussed below. 

A. 1.2.1 Weight and Associated Properties 

These data are submitted monthly and include Weight Status, Change Analysis, and Se- 
quence Mass Properties for each numbered launch vehicle and spacecraft combination. 
Useable propellants reported are based upon the specific defined mission requirements 
in accordance with the Office of Manned Space Flight Program Directive Apollo Flight 
Mission Assignments . Control weights are in accordance with the "Apollo Program 
Specification and Specification Weight, " and are the weights specified in the contrac- 
tor's statement of work or procurement specification. 

For this segment of data, formats illustrated in Figures A-12 through A-18 are utilized. 

The Current Weight Summary. Figures A-12, A-13, and A-14, summarize each re- 
ported launch vehicle and spacecraft from the stage and module level to launch vehicle 
capability and total spacecraft weight. The Current Weight Status Figure A-15, in- 
cludes a weight breakdown to the functional system level for each launch vehicle stage 
and total launch vehicle as reported on formats shown in Figures A-12 and A-13 and 
for each spacecraft module and total spacecraft as reported on the format shown in 
Figure A- 14. Figure A-15 (Format ID) also includes program maturity data in the 
form of a percentage breakdown of current weight. This information is the percent of 
estimated, calculated, and actual weights that comprise the current weight. Weight 
changes that have taken place since the last report also are shown on the format for 
Current Weight Status. 

The Current Change Analysis and Pending Change Analysis . Figures A- 16 and A- 17 
(Formats 2A and 2B) which are referenced in the last column of the Current Weight 
Summary and Current W eight Status formats, require brief concise statements ex- 
plaining the weight changes that have taken place since the last report. 
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Discussion concerning changes planned for incorporation at some future date, in the 
various launch vehicle stages and spacecraft modules, are also included. 

The Sequenced Mass Property Data Figure A- 18 (Format 3) includes weight, center 
of gravity, inertia, and time of occurrence data, and provides a weight account linked 
to space vehicle performance and to principal events throughout the flight profile. Each 
discrete weight-loss event is listed and identified along with time of occurrence. All 
weight is accounted for. Weight losses which occur over a period of time, such as full 
thrust propellants are summarized. Propellants carried as part of full thrust pro- 
pellants, but not given thrust credit in the performance calculation, are clearly identified. 

A. 1.2. 2 Vehicle Performance Increase Shopping List 

The Performance Increase Shopping List , Figure A- 19 (Format 4) provides, on a 
current basis, a list of selected items which, when initiated, will result in increased 
vehicle performance. Following initial submittal, the list is updated and submitted to 
the Office of Manned Space Flight as additional information becomes available. 

A. 1.2.3 Performance Analysis Data 

These data are submitted monthly and include propulsion and velocity capability data for 
each numbered launch vehicle and spacecraft combination. For this segment of data, 
Figures A-20 and A-21 (Formats 5B and 5C) are utilized. 

The Propulsion Summary, Figure A-20 (Format B) summarizes propulsion parameters 
used in the determination of launch vehicle payload, as reported under segment A for 
the Saturn IB and Saturn V launch vehicles. The Performance and Propulsion Summary , 
Figure A-21 (Format 5C) summarizes both performance and propulsion parameters 
used in the determination of Block I and Block II spacecraft propellant loading and gives 
total weight as reported for the Apollo spacecraft. 
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Figure A-2. Typical Data Submittal Requirements 
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Figure A-14. 
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Figure A-20. 
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Figure A-21. 
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PROBABLE ERROR RELATIONSHIP AND USE 
B. 1 SELECTION OF MODEL 

In any forecasting process there is some degree of uncertainty associated with pre- 
dicted numbers. This degree of uncertainty many result from errors in selecting an 
inadequate model or from the tolerance expected in measurement or the displacement 
from the mean due to random changes up until ship date or a host of other reasons. 

But the fact remains that forecast analysis is based on the production of the best avail- 
able quantitative values. This in turn necessitates selection of a single, most-likely 
weight at the specific date, and this is taken as the mean expected weight. 

B. 2 ESTABLISHING CONFIDENCE LIMIT LINES 

For purposes of illustrating the range of the scatter of potential weights at ship date, 
the upper and lower 95 percent confidence limit lines are calculated. In this instance, 
the upper confidence limit is defined as a "one tailed" limit below which, for a large sample, 
95 percent of the points would fall. That is, for a large sample, 5 percent of the data 
could be expected to exceed the upper confidence limit value. 

Confidence limit lines are readily presented in graphic form but difficult to visualize in 
tabular form; hence, the term probable error is introduced as follows: 

Probable error is the numerical difference between the upper 
(95 percent) confidence limit and forecasted weight at the ship- 
ping date. 

Probable error is then tabulated adjacent to forecasted values in the detail result 
tables so that the reader can readily grasp the magnitude of uncertainty of any fore- 
casted value. 

This then is the primary use of probable error — a ready index of the prediction accuracy. 
B. 3 VALUES OF PROBABLE ERROR 

The values of probable error are obtained directly from the forecast and analysis of 
the functional system. For stages and modules and for over-all spacecraft and launch 
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vehicles, the probable errors are then calculated using appropriate factors and a 
simple root-sum-squared process. The resultant probable errors are only approxi- 
mate, but sufficient to give an indication of expected range of the final weights about 
the predicted weight. 


B. 4 SECONDARY USE OF PROBABLE ERRORS AND DERIVATION 

A secondary use of probable errors is for assistance in forecasting launch vehicle 
capability dispersion and space weight tolerance at ship date. In functional system 
weight forecasted errors, there are numerous factors which contribute to these er- 
rors. In a general sense, these kinds of errors can be classed into three categories: 

a. Errors represented by a variation of reported weight about the "true" 
weight, which are in turn a function of estimation processes, calculation 
accuracies, or actual measuring equipment precision. These errors can 
be expressed as e^ in Figure B-l with standard deviation, a^, 

b. Variation of true weight about its "true” expected growth line on a more or 
less random pattern due to the myriad of random forces at work. This 
variation, approximated by e^ with standard deviation a^, is associated 
with the random changes in weight being made right up until launch date. 

c. Error of the forecasted line, calculated from the limited available sample, 
to exactly match the "true" trend line. This error is expressed as e^ in 


Figure B-l with standard deviation cr 


w, 


For initial mathematical approximations, all three of these errors are assumed to be 
normally distributed with zero mean. Further, the first two kinds of error are in- 
distinguishable and are represented here by 


2 , 2 
= cr + a 

m K 


where cr^ is the assumed standard deviation of the reported data bout the "true” but 
unknown trend line, indicated as e^ in Figure B-l. 


In the early maximum likelihood models, is assumed to decrease in some relation 
to program progress, as indicated by changes from estimated to calculated to actual 
measurements. In the larger sense, these E/C/A values may be considered as a kind 
of program maturity factor. The expected value of is therefore assumed to de- 
crease in some fashion, represented schematically in Figure B-2, and approaches a 
final value as the discrete parts of the functional system move from estimated to 
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calculated to actual status, and as measurement accuracies increase due to installa- 
tion of better facilities. 



Figure B-l 


The behavior of cr^ with time is dependent on the nature of the fundamental model 
wk 

assumed. For the linear case, cr^ increases rather linearly with time from current 

wk 

to ship; for the nonlinear model, increases in a nonlinear fashion, as illustrated in 
Figure B-2. 


The total variation of the reported weight about the forecasted line is designated as 
e^, with standard deviation found by 
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Figure B-2 

The expected value of a T will therefore vary in a manner predetermined by the com- 
bined variations of cr^ and with time, and can readily take a shape such as indicated 
by any of the curves A, B, C, or D shown in Figure B-3. Curve A represents the 
case where is decreasing slowly and increasing rapidly; curve D is the oppo- 
site extreme with rapid decrease in o^and-slow rise in cr^. C> r > from the program 
control viewpoint, curve A represents the case where the variations of weight about 
the mean line are not expected to damp out significantly as the program matures while 
the expected errors in duplicating the true growth line increase markedly with time 
in the forecasting range. Curve D is just the opposite; program maturity effects are 
expected to significantly minimize the range of the weight variation about the true 
growth line, while accuracy remains high for prediction line matching the true growth 
line. Curves B and C are intermediate situations. 


The question naturally arises, "What can be forecasted about the value of cr^ at the 
time we reach ship date ?" For this discussion, it is appropriate to express the varia- 
tion in terms of the probable error (PE) at the ship date, the difference between the 
upper confidence limit and the mean line, as 


= C i a T 


where is a factor varying from 1.645 for a large sample to 2. 132 for a sample of 

only six observations, and a is the actual expected value of a at ship. 

is 1 
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For a large sample (less than 10) a value of 2 is a reasonable approximation for C, and 
the equation now reads 


PE 


s 



I — < 



+ 



It is significant to note that the probable error at ship date will decrease as the actual 

time approaches the ship date due to decreases in both and cr^ . The decrease in 

a, can be predicted prior to ship and will correspond to expected decrease in weight 
k s 

oscillations with expected changes from estimated to calculated to actual. Likewise, 
a t ship date can be estimated from known accuracies of prediction in the current 
observed range. 


If the resultant probable error at ship, PE is excessively high, the over-all mission 

s 

could be needlessly jeopardized by the necessity of providing excessive launch capa- 
bility to handle the large contingency factor, hi any event, if cr^ is significantly 
greater than o, , then it is possible that mass measurement accuracy requirements 

are excessive — a very expensive situation indeed. That is, if < 7 , is low, then 

k s 

ex must also be low which may not be reasonable in view of the large variation of 
expected vehicle requirements as evidenced by a large cr^. Since is related to 
mass property measurement, and high accuracies of mass measurement (to minimize 
ct ) are very costly, then it may be valuable to consider if potential cost reductions 
may be achieved by relaxing the requirements for ex . 



time -» 
Figure B-3 
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APPENDIX C 


MATH MODELS 

C.l LINEAR MAXIMUM LIKELIHOOD 

In this discussion it is assumed that the reported weight data, represented by the ran- 
dom variable w. observed at time t., are generated in a linear fashion. Hence, the 
assumed model is 

w. = a + b t. 

1 1 

where a and b are unknown parameters to be estimated. It can be said then that this 
model represents the expected value of the weight or 

E{w.} = w. = a + bt.. 

It is also assumed that the value of the random variable w. can be expressed as its 
expected value plus an unobservable error which is a random variable with zero mean 
and standard derivation a. . Thus, 

w. = w. + e. . 

—l l—i 

The observed weight w. is reported as a summation of three values. One of these re- 
flects that portion whose weight is totally estimated, the second is that portion which 
is calculated (from final design drawings) and the third is the portion which is actual 
or manufactured so that it can be actually weighed. The weight is therefore expressi- 
ble as 


w. = 

— I 

E. w. + C. w. + A. w. 

l—i l—i l—i 

where 


E. w. 
i — i 

= fraction of w. which is estimated. 

— l 

C. w. 

i —i 

= fraction of w. which is calculated. 
— i 

A. w. 

i “i 

= fraction of w. which is measured or actual. 

— l 
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Each of the three coefficients E., C., and A. is available for every observation, or 
reported value of w.. The three components of w. can now be expressed as a mean 
value plus an error, yielding 

+ < w Ei + -Ei* + (W Ci + £d> + (W Ai + £ Al > 

where the three component means are assumed derived from the mean value of 
as follows: 


W Ei 

= E i W i 

w Ci 

= C.w. 
1 1 

W Ai 

- A.w. . 
1 l 


Since E. 

+ C. + A. = 1.0, it follows that 

i l 

l 

w i 

w Ei + W Ci + W Ai 

e. 

— l 

= e E . + + e A . . 


Note that the term "error" is used here in a very broad sense. Even if the total weight 
could be measured exactly, without any error in the conventional sense, this weight 
would not be expected to follow a straight line. Instead, the exact weight is consid- 
ered a random phenomenon whose dispersion about some trend is caused by the inter- 
action of many random causes. It is this dispersion or deviation which is referred to 
as error. 


The three errors are assumed to be normally and independently distributed with zero 


mean and standard deviations Oj 
the error is expressible as 


and a 


A,’ 


It then follows that the variance of 


= ov 


+ Or 


+ (J 


Ai 


It is further assumed that the ratio of standard deviation to mean of the three random 
weight components is constant, or specifically, 
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(T 

W 


c. 

1_ 

c. 


R s 
1 


J A. 

1 = R s 

A. 

1 


w 


The ratio s is an unknown parameter which will be estimated while the factors R and 

i 

R , which define the relationship among the three ratios, must be specified. The 

2 

variance of the i observation can now be expressed as 

a. 2 = s 2 m. 2 

l i 

where rm 2 is a weighting factor defined as 


m 2 = w 2 [E 2 + R 2 C 2 + R 2 A. 2 ] 

1 11 11 2 1 ‘ 


This weighting factor is actually a constant but contains the unknown value of w.. For 
computational purposes one will need some estimate, say w., of w. and use instead 
of m. 2 . 


m. 


= w. 


i E i £ 


R 2 C. 2 

l l 


R 2 A. 2 ] 
2 1 1 


As a first estimate of w^ the actual observed value can be used, i. e. , w. = w., or a 
least squares fit performed and points from the resulting function used. In the com- 
puter program developed for this linear maximum likelihood technique the latter pro- 
cedure is used. The resulting w. is further improved in an iterative fashion by the 

maximum likelihood estimator for w.. 

i 


The final assumption is that the random variables w . and w^, where i ^ j, are inde- 
pendent. This is perhaps the most limiting assumption. For example, a project man- 
ager may decide to freeze the weight of some component for several months, the fact 
that the weight stays constant during that time is then not attributable to randomness, 
but is rather a result of strong dependence. The likelihood function is 


L 


n 

i = 1 


1 

s m. V27 r 
i 



s 


a - b t. 

i 

m. 

i 


) 


2-1 
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and the maximum of this function is 


max 


- n 


i = 1 


w . - 

— -l 


- bt. 
— 1 


s m. 
i 


sm. 




/^ /\ /\ 

where a, b, s are maximum likelihood estimators of the unknown parameters a, b, 
and s. Taking the partial derivatives of In L with respect to each of the three param- 
eters and equating them to zero produces the following normal equations: 


I 





0 



i = 1 



t. 

l 


- 0 



S 




Solving the first two equations for a and b yields 
CE - BF 


a = 


b = 


D 

AF - BE 


D 


where 


n 



04 



n 

v 

t. 2 

i 

A 

i = 1 

m i 2 

AC ■ 

- B 2 

n 

V 

w . 
— 1 

L 

i = 1 

m 2 

i 

n 

V 

w . t. 

— l l 

L 

i = 1 

m. 

i 


2 2 

It is interesting to note at this point that by setting m. = 1, which says that a. = s , 

a least squares fit is obtained. Although a and b are unbiased, i. e. , E(a) = a and 
/\ 

E(b) - b, the estimator £ as defined above is biased. Its unbiased form (see C.1.2 
to this section) is given by 



C. 1. 1 PREDICTION AND PREDICTION INTERVAL 

One of the benefits accruing from the maximum likelihood method is that one has 
enough information to establish a confidence interval, called prediction interval. Let 
(t^, w k ) be pairs of future observations, which are to be predicted. The model holds 
in analogy to the original model, namely 

w, = w, + e, . 

— k k — k 


If a, b, and s were known we could determine w = a + b t. and use s to assess the con- 

k 

fidence interval due to the error e, . What is instead available are the estimators a, 

/N K 

b, and _s. The predicted value of w k is the estimator of w^ 
w k = a + bt k 

Note that 

£ {w k } = E{w k } = w k . 
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Since both a and b are linear combinations of the normally distributed random vari- 
ables w., w k is also normally distributed, hence 

A 

w. = w, + e~ 

-k k -w k 

where is a normal error with zero mean. Let u. be the difference between the 

th -w k _k 

k observation and prediction 



It is seen that the error has two sources. One, e^ f tells us that the observation 
w ^ will deviate from its expected value, while secondly our estimate of the expected 
value contains the error e^. These two errors and their relationship are illustrated 
in Figure C-l. In this diagram, the true trend line is provided by 

E{w.} = w. . 

The error u^ is again normal with parameters 
E{u k } = 0, 

o 2 = var (u ) = var (e ) + var (e ~ ) 

u k k k w k 


The last equation follows from the stipulated independence of observations. The vari- 
ance of e^. * s 8i »iply 


var fej 


°k = s • m k 


In place of m^ 2 we use its estimate 


2 2 

— k " — k 


E 2 + R 2 C 2 + R 2 A 2 

K IK 2 K 


The variance of e^ is obtained from the earlier expression for w, 
-w k -k 


A /S /N /N 

var (e^ ) = var(a) + t^ varjb} + 2t cov{a, b} 

w k 
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Standard Deviation of e 



Time In Months 

Figure C-l. Maxi mum- Likelihood Linear Model Showing the 


This equation contains the covariance of a and b which implies that a and b are depen- 
dent. There is a simpler way to find var (eT ). 

W k 

Going back to the normal equations solution it is seen that w^ can be expressed as a 
function of the random variables _E and F_, 

w k = “k^ + ^ 

where 

c - Bt k 

\ * — TT* 

_ At, - B 


ot^ var \E) + (3^ var {F j + 2o^/3 ^ cov {_E, _F} 


M k 

This leads to 


D 


var 


{e- } = 

*— w, 1 


Since both _E and JF consist of a sum of independent normal random variables, we can 
write down directly, 


n 2 
a. 


var {Ej = > -T 

l — i m 


, m. 
i = l l 


= s 


. ' m. 

i = l i 


2 

= s A 


var {F} = 


n t 2 

-1- a 2 
4 i 

O* m. 
i = l l 


= s 


t: 


m. 
i = l i 


= s C 


The covariance of _E and _F is defined as 

n 


cov { _E, F^j = E < 


(I - 

\ i = 1 i 


w .t.> 
— l l 


. ^ 1 - m.^ 

i = l l 


- E l 


w . 

— l 


. - m. 

i = l l 


> E< 


n 


w .t. 

— l l 


. , m. 

1 = 1 l 


08 



The equation for w k is simplified by the fact that, due to independence, 
EfWjW.} = E{ w .} • E{w.}, i jL j 
and there results 


n t. 2 

cov (E.» Z.) = E < V — — w. Z 

/— 1 , m. 4 1 

U = l i 


. £ — m. 
1 = 1 l 


n 2 

. Vl.> 


m. 

i = l i 


7 ar = sB 

4 1 


So now the expression for var {e } becomes 

w k 


{e } - . « k A + p k C * 2ayi k B 


or by substitution for and /3^ 


var { e ~ ) 
l — w, 1 

k 


T At k a 2Bt k + c 


It is now clear that 


r~i 2 C 

var {a} = s 


var {bj 


2 A 
= S D 


{a. b} 


2 B 
S D 


var {u } 


2/ 2 

= s (m k + 


If s were known the prediction interval could be readily established since u^ is nor- 
mally distributed. For example, for a 95 percent interval on w^ one would use 


a + b , ± 1 . 96 cj 

- -k u k 
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With j 3 available instead of s, this may still be used if the sample is large enough, say 
n > 30. For small samples the random variable 



has the Student T distribution with n - 2 degrees of freedom, s being the unbiased esti- 
mator for s. From this follows the small sample distribution of u^. 


A 



where 


i 



The confidence interval containing (i - e) of all possible outcomes of w is then 


£ + ± Kk 



in the case of a sample with n = 10, and a 95 percent interval, the value of t e / 2 is 
2.306 as compared to 1.96 used earlier. 


C. 1.2 APPENDIX 

A 

It was seen in the preceding discussion that the maximum -likelihood estimator _s of 
the parameter s is 
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This estimator is to be tested for bias, which means that its expected value has to be 
found. 


E{s 2 } = E 


n 


1 

n 


i = 1 


/N 2 

W . - W . 

ni—T 1 

m. 


The following transformations are made: 

'(w. - w.) - (w. - w.) 


^ 2-i 

E{s } 


= E< 


n r* 


i = 1 




m. 

l 


= E< — 
n 


. . m. l. 

i = l i 


n 


(w. - w,) 2 - 2( w . - w.) (w. - w.) + (w. - w.) S 


2,1 

= S + — , 

n / 2 , 

m. L 
i = l i 


r ^ ^ 

-2 cov { w.,w } + var { w.} 


For the last term the following earlier results are used: 

var {w} = var {e ^ j = %r-( At. 2 - 2Bt. + C 
L — ' 1 — w. J D V i i 


and 


2^ t; var {w .} = ^ (AC - 2B 2 + AC) = 2s 2 

i = 1 


^ p 

The middle term in the E{s^ } expression is treated as follows: 
w w.} = E-fw. • w.} - w. 

— l — ) J l — l — i J l 

Next, 


A 

E{w^ * w.} = a.E 


n 1 


* m 

n 

V 1 w i 


^ w.t . 

2, -la 

> + B.E < 

\ w J J » 

l 

/ , — 1 2 

[j = i m j J 

U = 1 J J 
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Now, using E{w. • w .} = w.w. for (i t j) 
1 J J 

“i + h\ 


E{w. • w.} = 


m. 

1 


(E{w*j 


2. 2 

W. ) + W. 

1 1 


and 


^ <j. 

cot {w., w.} = (a + £.t.) — ^ = (a + /SA.Js 


m. 

i 


Further 


“i + W 


n C - Bt. + At. 2 - Bt. 

1 1 1 


. m. 

i = l l 


. . m 2 (AC - B 2 ) 

i=l l ' ' 


AC - B g + AC - B 2 
AC - B 2 


= 2 


A 

Combining this with the expressions for E{s / and 
n 


. m. 
i = l i 


— var w . , 
? —l 



2 


S 



n n 



2 

s 


From this follows that the unbiased estimator of s should be 



C. 1.3 SAMPLE CALCULATIONS 

An understanding of the computational mechanics involved in exercising this model can 
be best obtained by examining a step-by-step numerical example. The following ma- 
terial results from a calculation using the appropriate expressions from the above 
discussion. The computer program was applied to the same set of input data and the 
agreement between final results was very good. The computer output is included at 
the end of the computations (see Figures C-2 and C-3). 
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The original data is as follows 


Case No. 30 


Date 

t. 

l 

w . 

— i 

A. 

l 

C. 

i 

E. 

l 

i 

8/63 

1 

86405 

0 

0.90 

0.10 

1 

9/63 

2 

87916 

0 

0.90 

0.10 

2 

10/63 

3 

- 

- 

- 

- 

- 

11/63 

4 

86648 

0.01 

0.91 

0.08 

3 

12/63 

5 

- 

- 

- 

- 

_ 

1/64 

6 

- 

- 

- 

- 

- 

2/64 

7 

86992 

0.02 

0.90 

0.08 

4 

3/64 

8 

86542 

0.02 

0.90 

0.08 

5 

4/64 

9 

- 

- 

- 

- 

- 

5/64 

10 

88056 

0.02 

0.90 

0.08 

6 

6/64 

11 

88460 

0.02 

0.90 

0.08 

7 

7/64 

12 

88791 

0.02 

0.92 

0.06 

8 


For the least squares estimators, a^ g and , 


^ CE - BF 

-ts = D 



AF_ - BE 
D 


where: 


A 


z 

i = 1 


1 



B 


z 


i = 1 


t. 

i 
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D = AC - B 2 



A A 

These equations give the maximum likelihood estimators, a and b. By setting the 
m. = 1, the least squares estimators are obtained. 


i 

t. 

l 

‘t 2 

Wi 

w- 1- 
i i 

1 

1 

1 

86401 

86401 

2 

2 

4 

87916 

175832 

3 

4 

16 

86648 

346592 

4 

7 

49 

86992 

608944 

5 

8 

64 

86542 

692336 

6 

10 

100 

88056 

880560 

7 

11 

121 

88460 

973060 

8 

12 

144 

88791 

1065492 

2 

55 

499 

699806 

4829217 


8 



i = 1 


D = AC - B 2 = 
8 

1 = I w. 
i = 1 


8 

55 

499 

8(499) - (55) 2 
3992 - 3025 = 967 

699806 
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8 

F = V w.t. = 4829217 

— ^ 1 1 

i = 1 


„ C E - BF 

-is = D 


^ A F - BE 

-is = D 


499(699806) - 55(4829217) = 349203194 - 265606935 

967 967 


83596259 

967 


= 86449.079 


8(4829217) - 55(699806) 
967 


38633736 - 38489330 
967 


144406 

967 


149.334 


For the least squares curve fit. 


w. 

l 


* Wi • 




i 

t. 

l 

Vi 

Wi 

w. 

l 

1 

1 

149.334 

86598.413 

86598 

2 

2 

298.668 

86747.747 

86748 

3 

4 

597.336 

87046.415 

87046 

4 

7 

1045.338 

87494.417 

87494 

5 

8 

1194.672 

87643.751 

87644 

6 

10 

1493.340 

87942.419 

87942 

7 

11 

1642.674 

88091.753 

88092 

8 

12 

1792.00 8 

88241.087 

88241 

9 

13 

1941.342 

88390.421 

88390 


For the first estimate of m^, 

^ 2 ^ 2 2 _ 2 2 2 . 2 . 
m. = w. (E. + R C. + R A. ) . 

1 1 ' 1 11 2 1 


R 

i 

= 25 , R^ 

= 625 

R 

2 

= 50 . R 2 2 

= 2500 
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E a + A 2 cf 

i 1 i 


i 

E 

E. 2 

c. 

c 2 

R 2 C 2 

A. 

A 2 

R 2 c 2 

+r 2 a 2 


l 

1 

1 

1 

1 1 

l 

1 

l l 

2 1 

1 

0 

0 

0. 90 

0.8100 

506.2500 

0.10 

0.01 

25.00 

531.2500 

2 

0 

0 

0.90 

0.8100 

506.2500 

0.10 

0.01 

25.00 

531.2500 

3 

0.01 

0.0001 

0.91 

0.8281 

517.5625 

0.08 

0.0064 

16.00 

533.5626 

4 

0.02 

0.0004 

0.90 

0.8100 

506.2500 

0.08 

0.0064 

16.00 

522.2504 

5 

0.02 

0.0004 

0. 90 

0.8100 

506.2500 

0.08 

0.0064 

16.00 

522.2504 

6 

0.02 

0.0004 

0. 90 

0.8100 

506.2500 

0.0$ 

0.0064 

16.00 

522.2504 

7 

0.02 

0.0004 

0. 90 

0.8100 

506.2500 

0.08 

0.0064 

16.00 

522.2504 

8 

0.02 

0.0004 

0. 92 

0.8464 

529.0000 

0.06 

0.0036 

9.00 

538.0004 


E 2 +R 2 C? 

i i i 


i 

w. 

l 

2 

W. 

1 

2 2 

+R A. 
2 1 

2 

m. 

i 

1/m 2 

i 

1 

86598.413 

74.992851 x 10® 

531.2500 

398.39952 x 10 10 

25.100432 x 10" 14 

2 

86747.747 

75.751716 x 10® 

531.2500 

399. 77474 x 10 10 

25.014087 x 10 -14 

3 

87046.415 

75.770784 x 10® 

533.5626 

404.28457 x 10 10 

24.735052 x 10~ 14 

4 

87494.417 

76.552730 x 10® 

522.2504 

399.79694 x 10 10 

25.012698 x 10“ 14 

5 

87643.751 

76.814271 x 10 8 

522.2504 

401. 16284 x 10 10 

24.927533 x 10~ 14 

6 

87942.419 

77.338691 x 10® 

522.2504 

403.90162 x 10 10 

24.758504 x 10~ 14 

7 

88091.753 

77.601569 x 10® 

522.2504 

405.27450 x 10 10 

24.674634 x 10 _14 

8 

88241.087 

77.864894 x 10® 

538.0004 

418. 91344 x 10 10 

23.871280 x 10 _14 

Z 

_ 

- 

- 

- 

198.094220 x 10 _14 


Further iterations of m. using values ofw. obtained from the maximum likelihood 
estimators were not made in the hand calculations. 

For the maximum likelihood estimators, a m ^ and b, m p 

^ C E - BF 

— m£ = D 

r A F - BE 

-mi D 
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MOO^OOi^CON) 


where 


A 


n 


Z 


1 


2 


m. 

1 


B 



t. 


2 


m. 

l 


C 



2 


t. 

1 


2 


m. 

i 


D = AC - B 2 


E 


Z 


i = 1 


w. 

— l 


2 


m. 

l 


F 


n 



i 

t. 

i 

(t./m. 2 ) x 10 14 
' l i 

t. 2 

i 

(t. 2 /m. 2 ) x 10 14 

(w./m. 2 ) x 10 

1 

i 

25.100432 

1 

25.100432 

2168702.4 

2 

2 

50.028174 

4 

100.056348 

2199138.5 

3 

4 

98. 940208 

16 

395.760832 

2143242.8 

4 

7 

175.088886 

49 

1225.622202 

2175904.6 

5 

8 

199.420264 

64 

1595.362112 

2157278.6 

6 

10 

247.585040 

100 

2475.850400 

2180134.8 

7 

11 

271.420974 

121 

2985.630714 

2182718.1 

8 

12 

286.455360 

144 

3437.464320 

2119554.8 

2 

~ 

1354.039338 

“ 

12240.847360 

17326674.6 

i 

w .t. 
— i i 

(t.w./m. 2 

'll 1 

) x 10 14 




86401 

2168702.4 

175832 

4398276.9 

346592 

8572971.1 

608944 

15231332.4 

692336 

17258228.5 

880560 

21801348.3 

973060 

24009899.4 

1065492 

25434657.9 

- 

118875416.9 
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Ip > 


A 


B 


C 


D 




, m. 
i=l 1 


8 t* 

I -4 

i«l m i 


AC - 


198.09422 x 10 
1354.0393 x 10~ 14 
12240. 847 x lO' 14 

(198.09422 x 10 -14 ) (12240.847 x 10 _14 )- (1354.0393 x 10 -14 ) 2 
(2424841.1 x 10“ 2S ) - (1833422.5 x lO -28 ) 

591418.6 x 10" 28 


w. 


E = Y. — h = 17326674.5 x 10' 


14 


1 m. 
i = l l 


F = 


O , 

w t 

I =4 

- m. 
i = l i 


= 118875416.9 x 10 


-14 


m2 


CE - BF 


-14. 


(12240.847 x 10 ^)(17326674. 5 x 10 14 ) - (1354. 0393 x 10~ 14 )(118875416. 9 x 10~ 14 1 

591418.6 x 10" 2S 


.-14, 


.“IT 


2.120931716 x 10 - 1.609619863 x 10 


-17 


5.914186 x 10 


•23 


0.511311853 x 10 
5.914186 x 10" : 


86455.153 
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* A F - BE 

-mi = D 

(198. 09422 x 10~ 14 )qi8875416. 9 x 10~ 14 ) - (1354.0393 x 10~ 14 H17326674. 5 x 10~ 14 i 

591418.6 x 10" 28 

2.354853299 x 10~ 18 - 2. 34609982 x l(T la 
5.914186 x 10" 23 

= 8 : 75M.7 9 x.l0;f 1 = 148>008 

5.914186 x 10' 23 


For the maximum likelihood curve fit, 


w i = e * 

^ A A 


i 

t. 

b A. 

a „ + b „t. 

w 


l 

—mi l 

—mi —mi i 

i(mi) 

1 

1 

148.008 

86603.161 

88603 

2 

2 

296.016 

86751.169 

86751 

3 

4 

592.032 

87047.105 

87047 

4 

7 

1036.056 

87491.209 

87491 

5 

8 

1184.064 

87639.217 

87639 

6 

10 

1480.080 

87935.233 

87935 

7 

11 

1628.088 

88083.241 

88083 

8 

12 

1776.096 

88231.249 

88231 

9 

13 

1924.104 

88379.257 

88379 


For the unbiased maximum likelihood estimator, _s, 
n . ^ A 

> - V fe_L hzL. 

- ' n - 2 L \ m 

i = 1 
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w. 

—1 


a + b t 


w. - a - bt. 

—l — — 1 


(w. - a - bt y 
s — i — “i 


1 

86401 

86603.161 

-202.161 4. 

2 

87916 

86751.169 

1164.831 1. 

3 

86648 

87047.185 

-399.185 1. 

4 

86992 

87491.209 

-499.209 2. 

5 

86542 

87639.217 

-1097.217 1. 

6 

88056 

87935.233 

120.767 1. 

7 

88460 

88083.241 

376.759 1. 

8 

88791 

88231.249 

559.751 3. 


i 

l/m. 2 

A A g 

(w . - a - b t.) /m. 


1 

25.100432 x 10 -14 

1.0258313 x 10" 


2 

25.014087 x 10" 14 

33.9398952 x 10" 


3 

24.735052 x 10~ 14 

3.9414975 x 10~ 


4 

25.012698 x 10 _14 

6.2334051 x 10“ 


5 

24.927533 x 10 _14 

30.0098868 x 10' 


6 

24.758504 x 10~ 14 

0.3610946 x 10“ 


7 

24.674634 x 10" 14 

3.5024988 x 10~ 


8 

23.871280 x 10' 14 

7.4793777 x 10~ 


2 


86.4934870 x 10~ 


1 

t - 2 " ^M 2 


ST 

~ n - 2 

\ m. / 

i = 1 1 



1 

• 86.4934870 x 10 -8 



<N 

1 

00 

II 



1.59348664 x 10“ 


3.13321182 x 10- 


= 14.415581 x 10 


-8 


= 3.7967856 x 10 


-4 


For the error in the observed value, s , 
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A A 

Using _s for s and for m^, where 




“ ik (E k 2 + w + W> 


then 


s • tR, 2 ^ 2 + R^ 2 ) 


i 

( )xl0" 2 ( 

) 2 x 10 -1 

w k x 10' 4 

2k( )“ x 10 

1 

5.312500 

2.3048861 

8.6603161 

1.9961042 

2 

5.312500 

2.3048861 

8.6751169 

1.9995156 

3 

5.335626 

2.3098974 

8.7047185 

2.0107007 

4 

5.222504 

2.2852799 

8.7491209 

1.9994190 

5 

5.222504 

2.2852799 

8.7639217 

2.0028014 

6 

5.222504 

2.2852799 

8.7935233 

2.0095662 

7 

5.222504 

2.2852799 

8.8083241 

2.0129486 

8 

5.380004 

2.3194836 

8.8231249 

2.0465094 


For the error in the predicted value, s , 

2 

{ e %} = ^ (At k 2 - 2 Bt k * c > 


= var 


where: 


A = 


i -h 

i -| m, 

k = 1 k 


B 


C - 


i i ni, 

k = 1 k 


n t 2 

Z -*4 

k = 1 m k 


D = AC - B" 


Using s for s 


S = S 

2 — 


At k 2 


2Bt + C' 2 
k 


s i x 10 * 

7.5787797 
7. 5917320 
7.6341995 
7.5913653 
7.6042075 
7.6298920 
7.6427343 
7.7701574 


D 
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where: 


A = 1. 9809422 x 10 

B = 13.540393 x 10 -1 

C = 122.40847 x 10 

D = 59. 141860 x 10 _: 


2B = 27.080786 x 10 



© 

© 

© 

© 

© 

® 


x 10 12 

x 10 12 


x 10 12 

x 10 12 

i 

t . 

l 

2B 

O x© 

t 2 
1 

A 

©x© 

1 

1 

27.080786 

27.080786 

1 

1.9809422 

1. 9809422 

2 

2 

27.080786 

54.161572 

4 

1.9809422 

7.9237688 

3 

4 

27.080786 

108.323144 

16 

1.9809422 

31.6950752 

4 

7 

27.080786 

189.565502 

49 

1.9809422 

97.0661678 

5 

S 

27.080786 

216.646288 

64 

1.9809422 

126.7803008 

6 

10 

27.080786 

270.807860 

100 

1.9809422 

198.0942200 

7 

11 

27.080786 

297.888646 

121 

1.9809422 

239. 6940062 

8 

12 

27.080786 

324.969432 

144 

1.9809422 

285.2556768 



0 

© 

® 

© 

© 


x 10 12 

x 10 

x 10 

i a-12 

x 10 

x 10 -6 

i 

C 

© + © - ® 

D 

© 

•I* 

© 

(@f 

1 

122.40847 

97.3086262 

59.141860 

1.645342676 

1.2827091 

2 

122.40847 

76.1706668 

59.141860 

1.287931539 

1.13487071 

3 

122.40847 

45.7804012 

59.141860 

0.774077805 

0.87981692 

4 

122.40847 

29.9091358 

59.141860 

0.505718551 

0.7111389 

5 

122.40847 

32.5424828 

59.141860 

0.550244493 

0.7417847 

6 

122.40847 

49.6948300 

59.141860 

0.840264915 

0.9166597 

7 

122.40847 

64.2138302 

59.141860 

1.085759396 

1.0419978 

8 

122.40847 

82.6947148 

59.141860 

1.398243389 

1.1824734 


© 

© 





X 10 4 

X 10 -2 




i 

A 

_s 

© x © 




1 

3.7967856 

4.8701714 




2 

3.7967856 

4.3088608 




3 

3.7967856 

3.3404762 




4 

3.7967856 

2.7000227 




5 

3.7967856 

2.8163774 




6 

3.7967856 

3.4803356 




7 

3.7967856 

3.9562141 




8 

3.7967856 

4.4895661 
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Thus the two errors, s and s , are 

1 2 


487.0 
430.9 

334.0 

270.0 
281.6 

348.0 
395.6 

449.0 


757.9 

759.2 

763.4 
759.1 

760.4 

763.0 

764.3 

777.0 


For the 95-percent confidence interval. 


% k - var {Sk} ' var {£k} + var {-wj 

where is the error between the k th observation and’ the prediction. Then, 


2 2 
8+8 
1 2 


^ o o — 

(T . = (S 2 + S ) 2 

— uk X 1 2 


Confidence Interval = a + bt, + t / a . 

— — k ~ £ /2 — uk 

and for a 95-percent interval with sample size n = 8, 

t , = 2.447 

e/2 
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© 

© 

A 

© 

© 

© 


x 10~ 2 

x 10 

x 10 2 

x 10 4 

x 10 14 

i 

s 

s 2 

s 

s 2 

s 2 + s 2 


1 

i 

2 

2 

1 2 

1 

7.5787797 

57.437902 

4.8701714 

23.718569 

81.156471 

2 

7.5917320 

57.634395 

4.3088608 

18.566281 

76.200676 

3 

7.6341995 

58.281002 

3.3404762 

11.158781 

69.439783 

4 

7.5913653 

57.628827 

2.7000227 

7.290123 

64. 918950 

5 

7.6042075 

57.823972 

2.8163774 

7.931982 

65.755954 

6 

7.6298920 

58.215252 

3.4803356 

12.112736 

70.327988 

7 

7.6427343 

58.411388 

3.9562141 

15.651630 

74.063018 

8 

7.7701574 

60.375346 

4.4895661 

20.156204 

80.531550 


x 10‘ 2 






✓\ 

A 

/V. A 



i 

CT . 

— uk 

t / CT , 
e/ 2 -uk 

a + bt. 

— — k 

-95%, C.I. 

+95% C.I. 

1 

9.0086886 

2204.426 

86603.161 

84398.735 

88807.587 

2 

8.7292999 

2136.060 

86751.169 

84615.109 

88887.229 

3 

8.3330536 

2039.098 

87047.185 

85008.087 

89086.283 

4 

8.0572297 

1971.604 

87491.209 

85519.605 

89462.813 

5 

8.1090045 

1984.273 

87639.217 

85654.944 

89623.490 

6 

8.3861784 

2052.098 

87935.233 

85883.135 

89987.331 

7 

8.6059873 

2105.885 

88083.241 

85977.356 

90189.126 

8 

8.9739373 

2195.922 

88231.249 

86035.327 

90427.171 


C . 2 THE EXPONENTIAL MODEL 

The data used to quantize the model consist of n observations of the random variable 
\v. made at times t. . The expected value of w., or the assumed process model, is 
given by the following exponential function of time, 


-ct. 

E{w_.} = w. = a - be 1 , c>0 


Two methods have been used to evaluate the parameters a, b, and c. In one, the 
classic, direct application of maximum likelihood estimation results in four normal 
equations, three of which are coupled and non-linear. Solution of this trio is accom- 
plished by an iterative numerical procedure. Experience has shown, however, that 
this iterative process often fails to converge, in which event the model cannot be used. 
The second method, designed to overcome this problem, results in three, linear, nor- 
mal equations, two of which are coupled. The linearity is achieved by assigning values 
to c (the parameter producing the non-linear terms in the first method) from within a 
known interval. This allows a straightforward solution for a and b evaluation of the 
likelihood function. This is repeated for other values of c within the interval and the 
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RESTO 28 4 1963 25. 50. 27 
CONSTANT MISSION SPACECRAFT WEIGHT 
PROGRAM 791-PHASE B LINEAR TREND PREDICTION CASE NO. 30 


TIME 

* 

OBSERVED 

** 


P E 

R C E N T 


** 

si 


S2 

IN 

* 

WEIGHT 

** 

— 

* 

— 

* 

— 

** 




MONTHS 

* 

(LBS. ) 

** 

EST. 

* 

CALC 

* 

ACT. 

** 

(LBS. ) 


(LBS. ) 


AUG’63 

* 

86401 

** 

10 

* 

90 

* 

0 

** 

757.9 

* 

1281.5 

SEP'63 

* 

87916 

** 

10 

* 

90 

* 

0 

** 

759.2 

* 

1097.8 

OCT'63 

* 


* * 


* 


* 


** 


* 


NOV'63 

* 

86648 

* * 

8 

* 

91 

* 

1 

** 

763.5 

* 

734.6 

DEC '63 

* 


** 


* 


* 


** 


* 


JAN'64 

* 


** 


* 


* 


** 


* 


FEB ! 64 

* 

86992 

** 

8 

* 

90 

* 

2 

** 

759.2 

* 

250.7 

MAR'64 

* 

86542 

** 

8 

* 

90 

* 

2 

** 

760.5 

* 

207.5 

APR '64 

* 


** 


* 


* 


** 


* 


MAY'64 

* 

88056 

* * 

8 

* 

90 

* 

2 

** 

763.0 

* 

460.5 

JUN'64 

* 

88460 

** 

8 

* 

90 

* 

2 

** 

764.3 

* 

633.1 

JUL'64 

* 

88791 

* * 

6 

* 

92 

* 

2 

** 

777.1 

* 

811.9 

BEGIN EXTRAPOLATION . . 

.... 

. . 

. . . . 

. . . 

. . . . 

• 




AUG '64 

* 


** 

6 

* 

89 

* 

5 

** 

750.6 

* 

993.5 

SEP'64 

* 


* * 

6 

* 

85 

* 

9 

** 

724.0 

* 

1176.7 

OCT T 64 

* 


** 

5 

* 

82 

* 

12 

** 

697.3 

* 

1360.7 

NOV '64 

* 


** 

5 

* 

79 

* 

16 

** 

670.5 

* 

1545.4 

DEC '64 

* 


** 

5 

* 

76 

* 

19 

** 

643.7 

* 

1730.4 

JAN '6 5 

* 


** 

5 

* 

72 

* 

23 

** 

616.7 

* 

1915.7 

FEB T 65 

* 


** 

4 

* 

69 

* 

26 

** 

589.7 

* 

2101.2 

MAR '65 

* 


** 

4 

* 

66 

* 

30 

** 

562.6 

* 

2286.9 

APR'65 

* 


* * 

4 

* 

62 

* 

33 

** 

535.4 

* 

2472.7 

MAY'65 

* 


** 

4 

* 

59 

* 

37 

** 

508. 1 

* 

2658.6 

JUN'65 

* 


** 

4 

* 

56 

* 

40 

** 

480.7 

* 

2844.5 

JUL'65 

* 


** 

3 

* 

53 

* 

44 

** 

453.2 

* 

3030.5 

AUG T 65 

* 


** 

3 

* 

49 

* 

47 

* * 

425.7 

* 

3216.6 

SEP'65 

* 


** 

3 

* 

46 

* 

51 

** 

398.0 

* 

3402.7 

OCT '65 

* 


** 

3 

* 

43 

* 

54 

** 

370.3 

* 

3588.9 

NOV '65 

* 


** 

3 

* 

39 

* 

58 

** 

342. 5 

* 

3775.1 

DEC '65 

* 


** 

2 

* 

36 

* 

61 

** 

314.7 

* 

3961.3 

JAN'66 

* 


** 

2 

* 

33 

* 

65 

** 

286.8 

* 

4147.6 

FEB'66 

* 


* * 

2 

* 

30 

* 

68 

** 

258. 8 

* 

4333. 8 

MAR'66 

* 


** 

2 

* 

26 

* 

72 

** 

230. 8 

* 

4520. 1 

APR'66 

* 


** 

2 

* 

23 

* 

75 

** 

202.8 

* 

4706.4 

MAY '66 

* 


** 

1 

* 

20 

* 

79 

** 

174.8 

* 

4892.7 

JIJN'66 

* 


** 

1 

* 

16 

* 

82 

=Mf 

146.9 

* 

5079.0 

JUL'66 

* 


** 

1 

* 

13 

* 

86 

** 

119.3 

* 

5265.3 

AUG'66 

* 


** 

1 

* 

10 

* 

89 

** 

92.2 

* 

5451.7 

SEP'66 

* 


* * 

0 

* 

7 

* 

93 

* * 

66.4 

* 

5638.0 

OCT'66 

* 


** 

0 

* 

3 

* 

96 

** 

44.5 

* 

5824.4 

NOV '66 

* 


** 

0 

* 

0 

* 

100 

** 

35. 1 

* 

6010.8 
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DATE 10/26/64 


**** PREDICTED WEIGHT IN POUNDS 

**** LEAST ** MAXIMUM LIKELIHOOD 

**** SQUARES ** -95 P.C. CONF. * MEAN *+95P.C. CONF. 

************************ ********************* ******************************** 


**** 

86598 

** 

82960 

* 

86603 

* 

90246 

**** 

86748 

** 

83485 

* 

86751 

* 

90017 

**** 


** 


* 


* 


**** 

87046 

** 

84454 

* 

87047 

* 

89640 

**** 


** 


* 


* 


**** 


** 


* 


* 


**** 

87494 

** 

85535 

* 

87491 

* 

89448 

**** 

87644 

** 

85710 

* 

87639 

* 

89568 

**** 


** 


* 


* 


**** 

87942 

** 

85754 

* 

87935 

* 

90116 

**** 

88092 

** 

85654 

* 

88083 

* 

90512 

**** 

88241 

** 

85481 

* 

88231 

* 

90981 


**** 

88390 

** 

85332 

* 

88379 

* 

91426 

**** 

88540 

** 

85146 

* 

88527 

* 

91908 

**** 

88689 

** 

84934 

* 

88675 

* 

92417 


88838 

** 

84701 

* 

88823 

* 

92945 

**** 

88988 

** 

84453 

* 

88971 

* 

93489 

**** 

89137 

** 

84195 

* 

89119 

* 

94044 

**** 

89286 

** 

83927 

* 

89267 

* 

94607 

**** 

89435 

** 

83652 

* 

89415 

* 

95178 

**** 

89585 

** 

83372 

* 

89563 

* 

95754 

**** 

89734 

** 

83088 

* 

89711 

* 

96334 

**** 

89883 

** 

82800 

* 

89859 

* 

96918 

**** 

90033 

** 

82509 

* 

90007 

* 

97505 

**** 

90182 

** 

82215 

* 

90155 

* 

98095 
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90331 

** 

81920 

* 

90303 

* 

98686 

**** 

90481 

** 

81623 

* 

90451 

* 

99280 

**** 

90630 

** 

81324 

* 

90599 

* 

99875 
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90779 

** 

81023 

* 

90747 

* 

100471 

**** 

90929 

** 

80722 

* 

90895 

* 

101069 

**** 

91078 

** 

80420 

* 

91043 

* 

101667 

**** 

91227 

** 

80116 

* 
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* 

102266 

**** 

91377 

** 

79812 

* 

91339 

* 

102866 

**** 

91526 

** 

79507 

* 

91487 

* 

103467 

**** 

91675 

** 

79202 

* 

91635 

* 

104069 

**** 

91825 

** 

78896 

* 

91783 

* 

104671 

**** 

91974 

** 

78589 

* 

91931 

* 

105273 

**** 

92123 

** 

78282 

* 

92079 

* 

105877 

**** 

92273 

** 

77975 

* 

92227 

* 

106480 

**** 

92422 

** 

77667 

* 

92375 

* 

107084 
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search is directed always toward the c value providing higher values of the likelihood 
function. When the maximum value of this function is thus determined, the correspond- 
ing values of a, b, and c are, by definition, the maximum likelihood estimators and 
the model is then quantized. It should also be noted that the second method leads di- 
rectly to a means of determining confidence intervals, whereas .the first method would 
require the use of Monte Carlo methods or linear approximations. 

As both of these methods have been programmed and used (the second is used exclu- 
sively at this time) the following discussion includes the details of both. The first 
portion is identical in both cases. 

It has been assumed that the following relationship holds : 

w. = w. + e. 

—l 1 — 1 

where e. is an unobserved normal error having zero mean and standard deviation a.. 

—l i 

The observed weight consists of three parts, namely 
w. = E.w. + C.w. + A.w. 

—l l—i l—i l—i 

with 

Ej w . = fraction of w . which is Estimated. 

C i w . = fraction of w . which is Calculated. 

A.w. = fraction of w . which is Actual or manufactured. 

l—i —l 

The coefficients E., C., and A. are available for every observation. Each of the three 

ill 

parts is now broken into its mean plus an error, 

^i = (W E. + — E.) + (W C. + -^C > + (W A. + Za) 
ii li ii 

with the assumption 


W E. 

l 

E.w. 

l—i 

5: 

O 

11 

C.w. 

l—i 

t— 

11 

A.w. 

l—i 
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It follows that. 


w. 

i 



+ w 


C. 


+ 



e. 



+ — c. 
1 


+ 



The term "error" should be understood in a very broad sense. Even if the total weight 
would be measured exactly, without any error in the conventional sense, this weight 
would still not be expected to follow the exponential function. 


Instead, view the exact weight as being a random phenomenon, the deviation of which 
from some trend is caused by the interaction of many random causes. It is this devia- 
tion which is the "error" of interest here. 


The three component errors are assumed to be normally and independently distributed 
with zero mean and standard deviations o^, , , and cr^ . A fundamental result of 

statistics then states that 1 1 1 


2 

cr. 

l 




+ 



It is further assumed that the ratio of standard deviation to mean of the three random 
weights is constant, specifically 



s 



= R s 
i 



= R s 

2 


The ratio s is an unknown parameter which will be estimated, while the factors and 
R 2 must be specified. 
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The variance of the i^ 1 observation now obtains as 


2 2 2 
a = s * m. 


where m. 2 is a weighting factor 


2 2 

m. = w. 
i i 


E. 2 + R 2 C 2 + R 2 A 2 
1 11 2 1 


The weighting factor is actually a constant, but contains the unknown value of w.« For 
computational purposes one will need some estimates w. of w., and use instead of m. 

E 2 + R 2 C 2 + R 2 C 2 
1 11 2 1 

As a first estimate of w. one can use the actual observation, i.e. , w. = w., or else 
points from a linear curve fit. The latter procedure is used in the computer program 
developed for this model. 



The final assumption is that the random variables w . and w y where i ^ j, are inde- 
pendent. This is perhaps the most limiting assumption. For example, a project mana- 
ger may decide to freeze the weight of some component for several months. The fact 
that the weight stays constant during that time is then not attributable to randomness, 
but is rather a result of strong dependence. 


The likelihood function is 


- n 


i = 1 


/ -ctjx 

! ( Wj - an- be . 

1 2 \ sm. / 


sm.V 2~j r 


It is at this point that the treatment diverges as described earlier. In the first case, 

AAA A 

a, b, c, and s are to be estimated, while in the second, values are assigned to c and a, 
b and s only are estimated. 
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C.2.1 METHOD I 


Ss S\ 


It is required that the maximum likelihood estimators a, b, c, and s be found which 
yield the maximum value of the likelihood function, i. e. , 


max 


- n 

i = 1 


1 [ - £+ be 


-ct.v 
— i' 


2 


sm.V^ 


sm. 

— i 


Taking the partial derivatives of the natural logarithm of L 
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Ct.\ 


In L 


n / , i i 

.. p w. - a + be 

--ill- 

i = 1 


sm. 

l 


- ^ In 2 tt - n In s 


U 

- I 


In m. 
i 


i = 1 


with respect to the four parameters and equating them to zero produces the following 
normal equations 

-ct. 


/\ 


I 

i = 1 


u 

I 

i = 1 
n 

I 

i = 1 


w . - a + be 


— i 



2 

m. 

l 


w . 
—1 

✓s 

- a + 

/\ 

- '-b 

b e 


2 

m. 

i 


w . 
—1 

- a + 

/\ 

- ^i 
b e 


= 0 


-ct. 

— l 


= 0 


m. 

l 


-t.be 

i — 


-ct. 

— l 


= 0 


2 

S = 


i y ( -i ~ ^ + h e ' ) 

n / ' m. ' 

i = i 


Of these four equations, the last one is seen to be independent, while the first three 
are simultaneous equations. Since they are nonlinear, there exists no closed form 
solution. The computer program resorts to an iterative solution, the derivation of 

/N /N 

which is given in the following section. One starts out with an initial estimate a^ , b 


030 



y\ 

and c of the three parameters a, b, and c. The iterative schejne provides correc- 

“1 

tions of the previous estimate. Thus, after the p 1 iteration, 



where the corrections a, and are determined by 



The weighting factor m .. 2 (i.e. , m 2 for the i th data point and the j th iteration) is in 


agreement with the m. equation given earlier. 


. . -c .t. 

C - ] i 
a . - b . e J 

“3 “3 


E 2 + R 2 C 2 + R 2 A 2 
1 11 2 1 


The iterative process is terminated when a, p, and y have become small enough to be 
insignificant. 
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C. 2.1.1 Numerical Solution of Nonlinear Normal Equations 


Two methods are explored for the solution of the nonlinear normal equations. The 
first method is described on pages 478-480 of Reference while the second method 
is Newton's method, to be found on pages 204-205 of the same reference. 


The first method was found superior for the model at hand. It converged on the aver- 
age after 10 iterations while the second method always took longer, usually at least 
twice as long. In some cases it did not converge at all where the first method had 
converged. The first method is therefore the one now being used in the program. 
These two methods are described in a general form in the following paragraphs. 


Consider the problem of representing the mean of a stochastic process \v(t) by some 
function g(t) containing k unknown parameters 9 to 9 R , namely 

E{w(t)j = g(t ; © i , ..., 6 k ) 

Estimation of these parameters is to be made from the observation (w.,t.) i = 1 , . . . , n. 
Both the least-squares and the maximum-likelihood methods then lead to the condition 


-w . - g(t. ; 9 , 
— l ov l i 


V 


m. 

i = i - 
or more generally 
n 

) f(w.,t. ; 0 l , .... 0 R ) 

i = 1 


= mm 


= mm 


The realization of this condition occurs when 0 to 0, assume simultaneously the 

values of the values of the estimators 0 to 0, which are determined from the k simul- 

X K 

taneous equations. 

= 0 

= 1, 2, . . . , k 
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When the function f is linear in the parameters 0 to 0^> then solution of this equation 
in closed form is straightforward. We are concerned now with cases where f is not 
linear in at least one of the coefficients 0^ to 0^. 

C.2.1.2 First Method 

This method involves a linearization of the function f in the form of a truncated Taylor 
series. Let us write 

f ; 0 x 0 k ^ = L(0) 

where 0 is the vector of estimators, i.e. , 



and let us define an incremental estimator vector 



The linearization is 

t(? ♦ 6) = f,(«) ♦ Y 

0 __ 1 ^ 


Now introduce the new function into the objective function 
n 

= min 

i = 1 

and consider the value of |^| fixed while that of 6 is to be determined from this 
condition. It follows that 

n 

X v® + + 

i = 1 

i 


= 0 

= 1, 2, .... k 


f .(0 


+ 6 ) 
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which after substitution of the linearization becomes explicitly 


3f.(0) 


V r 

2^ + 6 i 80 


+ 5 


8f.(0) 


k 80 


i = 1 


k J 


af.(0) 

~ TT 


= o 


l = 1. 2, 


Let 0 be the estimator before the j th iteration. The j th iteration yields an lmprove- 

j 

ment such that 

9 . , = 0 . + 6. 

J+ 1 J J 

where 


l\jj 


a rs (i) 


“I 


b r (j) 


and, from a solution of the normal equations 


a rs U) 


Z C71.1 C 


0f 4 (0£ # af i( 0 j) 


30 


i = 1 


b r 0) 


Z _ 

W ' -or. 




i = 1 


Note that the matrix a is symmetrical. 

rs 


C.2.1.3 Second Method 
Again taking the function 
n 

f (w.,t.; 0 1 , • 


II 

I 

i = 1 


•• V 


dej f( ^-i’ t i 5 9 i e k ) 


= o 


l = 1, 2 k 
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I 


a new function F.^(0) is defined 


F « (s) = V 9 * ' w, ‘i< 9 > - 


« = 1, 2 k 


This function involves the solution of k simultaneous nonlinear equations, which will be 
Newton's method. This again makes use of linearizing F. 6 ) through a truncated 
Taylor series and provide iterative improvements on some initial estimator. Using 
the earlier expression for and 


J 


for the iteration we find 
n 


a rs ()) * I 

i = 1 


9F. (0) 
ir v _ 

ed 


i = 1 


8F.<0) 9F.(0) _ 8 2 F.(0) 

- 1 — • - 1 — + F i<*> FT 

r s 


08 


80 


n 


b r (j) 


F. (0) 
ir' ' 


8F(0) 
F i< 9 > • 80 


i = 1 


i = 1 


It is interesting to note that the t> r (j) values are identical for the two methods. 

C.2.2 METHOD II 

In this approach, as values are assigned to c, denoted by c, the maximum likelihood 
function becomes 


, ( w . - a + b e 

1 l —l - - 


- Ct i\ 2 


max 


- n 


sm i 


i = 1 


sm.\/"27F 

— i 
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where a, b, s are maximum likelihood estimators and c is a value for c in its range 
of values. Since it is often more convenient to maximize the natural logarithm of L, 
the maximum of which coincides with that of its argument, we have instead, 


In L 


, v i /W . - W. 

= _i y (=i — i 

2 ^ V sm i 
i = 1 


- ^ In 27r - n In s 


a 

- 1 


In m. 


i = 1 


By setting the partial derivatives of In L with respect to the three parameters a, b, s 
equal to zero, the three normal equations for the maximum likelihood estimators are 
obtained. 


9 In L 
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b = b 
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Solving the first two simultaneously yields 
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/\ /N 

After a and b have been determined, the unbiased estimator of s, rather than the maxi- 
t mum likelihood estimator defined by the third normal equation is computed. It is 



Once the values for "a" and "b" are determined for a given c value, the value In L is 
computed. This process is continued for each c in the range. The maximum In L 
determines the parameters a, b, c to be used by the model. 

C. 2. 3 PREDICTION AND PREDICTION INTERVAL 
Consider pairs (t^, w^) which are to be predicted. 

— k w k + -k 


Since a, b, and s are not known, we use the estimators a, b, and £ to assess the con- 
fidence interval due to the error e^ The predicted value of w k is the estimator of 



and 


E{w k } = E{w k } = w k 


✓N /N 

Both a and b are linear combinations of the normally distributed random variables w, , 

A ^ 

hence w, is normally distributed and 


.A 


^k 


W k + 



where e A , is a normal error with zero mean. Let Uv. be the difference between the k in 
— wr — K 

observation and prediction 


Hk 


^k 


/\ 


- ^k 


-k 


e ~ 

— w 


k 
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It is seen that the error u k has two sources. One, e^, says that the observation w k 

will deviate from its expected value, while secondly the estimate of the expected value t 

contains the error e ~ . The error u k is again normal with parameters 
~ w k 

E{u k } = 0 


u k 


= var {ujJ = var {e k } + var {e^} 


The last equation follows from the stipulated independence of observations. The vari- 
ance of £ k follows simply from 


var {£ k } = = 




In place of its estimate is used 


2 2 

™k = 


\ 2 + R i 2c k 2 + V + \ 2 


The variance of e is 
w k 

~2ct. ^ ~ ct k ^ 

var {e w } = var {a} + e var {b} - 2e cov (a,b) 






This equation contains the covariance of a and b which implies that a and b are 
dependent. From the solution of the normal equations. 


a = 


b = 


BD - EC 


AD - C c 


BC - AE 


AD - C‘ 


where 


A = 


, m. 
i = l l 
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Therefore w ^can be expressed as a function of random variables B and E 


A 



where 


ot. 


-ct, 

D - Ce 
AD - C 2 





This leads to 


var {e 



a^varfB} + var {E} + 20;^ cov {B,_E} 


Since both B^ and 12 consist of a sum of independent normal variables we can write 
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var {_E} = ^ 


n -2ct. n -2ct. 

i r — i i 

e _ 2 2 \ e 2 ^ 

o*. = s ) ■ — = s D 


- m. 
i = l l 


4 1 


i m. 

i = l l 


The covariance of B and E is defined as 


cov = 



This equation is simplified by the fact that, due to independence 
E{WjW.} = E{w.} • E{w.} , i t j 

and there results 


cov { E.) = E 
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, m. 
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-ct. 

p 1 

F - 


— e 
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Therefore 


var { e ~ } = s^ 

l — Wr 1 


or by substitution 


a k A + % 2 ° + 2a l/ j k C 


var { e ^ } 


AD - C 
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-2ct, 

A e ' - 2Ce " + D 


v k “ ct k 
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By comparison of this expression with the initial expression for var {e^ }, it is 
, seen that ^ 


var {a} = s 


2 D 
AD - & 


var {b} = s 2 


AD - C* 


cov {a,b} = s 


2 C 

AD - C‘ 


now 


-2ct, 


var 




= s 


2 , A e 
m k + 


-c ^k 

2C e + 
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AD - C‘ 


If s were known the prediction interval could be readily established since u_ k is nor- 
mally distributed. For example, for a 90 percent interval onw^one would use 


-ct, 


b e 


± 1.96 a 


u, 


/s. 

With j5 available instead of s, this may still be used if the sample is large enough, say 
n > 30. For small samples we know that the random variable 



has the Student t distribution with n - 2 degrees of freedom, s being the unbiased esti- 
mator for s. From this follows the small sample distribution of u k 


-k 
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where 


A A [ 

<J = S l 

“k -\ 


“k + 


" 2Ct k “ Ct k > 

Ae - 2Ce + D 


AD - C / 

the confidence interval containing (1 - e) of all possible outcomes of w^is then 


-ct, 


b e 


± t / cr 
e /2 — u 


C. 3 THE LOGISTICS MODEL 

The computer program for this model fits a curve of the form 


through a set of observations w . made at times t. by the method of weighted least 
squares. 


A range of values of c is established and for each c in the range, initial estimates of a 
and b in the above model are made. An iterative procedure is employed to obtain cor- 
rections, Aa^ and Ab^ for a and b respectively. When |Aa^/a| and | Ab./b| are both 
less than e = 0.001, the iteration process is terminated. The weighted sum of the 
squares of the errors 


n 



i = 1 


is computed and the program repeats the above process for the next value of c in the 
range. When all c values have been exhausted, the minimum S is determined through 
inspection and the corresponding values of a, b, and c are the desired parameters to 
be used in the model. 


C. 3. 1 ESTIMATION OF PARAMETERS 

The weighted least squares criteria for fitting a curve to data requires that we minimize 


S = 


n 



i = 1 


042 



where 


w . is the observation made at time t. . 

— 1 1 

w. is the prediction given by the model at time t.. 


This equation is nonlinear in the parameters a and b as are the normal equations. 
This means we must use an iterative procedure to determine the minimum value of S. 
To apply this technique S is written as 

n 

s - X V a * b> c) l 2 

i = 1 


and using a truncated Taylor series expansion we have 

/'S z\ 

3F. a. „„ a. 

F.(w., t., a, b, c) = F.(w., t., a, b, c) + — *■ J Aa + J Ab 

b. b. 


where a , b. are estimates of a, b; Aa, Ab improvements to the estimators a., b.. 

J J J i 

In the computer program c ranges from 0.001 to 2 in step sizes of 0.001. S . then 

min 

is given by the iterative process 
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and 



The iteration process is terminated when |AaVa^| < 0.001 and |Abj/b.| < 0.001. 


To initialize the problem first guesses of a^^ and b i are required. A least squares 
curve fit of the form 


w. = a + b t. 

1 i 

is fitted to the observed weights. 


n n n n 
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This least squares curve fit is matched with the logistic model at two time points for 

a value of c = 0. 1. (For c = 0. 1 the logistic curve is approximately a straight line in 

the region where the two curves are to be matched.) The two time points chosen were 

t = n/4 and t = 3n/4. This leads to 
1 2 



a + bt 


i 



a 1 = (a + bt 1 ) 

These values are used as a first approximation to a and b for the first value of c in the 
established range of c values. They are then improved upon by the iteration process 
discussed above. The final values of a and b for the first c value are then used as a 
first estimate for the next value of c in the range, etc. 

Once a and b are determined for a given c, a value of S is computed. This is done for 
each c in the range. The minimum S determines the parameters a, b, and c to be used 
by the model. 
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C . 3 . 2 PREDICTION AND PREDICTION INTERVAL 

Unlike the linear and exponential models, the logistic model involves a quotient of the 
parameters a and b. This non-linear combination no longer allows one to say, even if 
a and b are normally distributed, that the combination is normally distributed. The 
following discussion resolves this difficulty by using the first values of a and b, with 
c = 0. 1, to obtain the variance. An approximation is made, based on the number of 
observation values being more than ten, which yields a slight overestimate to the pre- 
dicted value as a linear combination of a and b. This error is the estimate of the ex- 
pected value combined with the error obtained by considering that the observation will 
deviate from its expected value yields a variance from which, for a specified level of 
confidence, a confidence interval or prediction interval can be obtained. 

Defining the following quantities. 


n 



i = 1 
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and recalling the earlier expressions defining the initial estimates of the parameters 
a and b, a and b may be expressed as 

S0 - Vi 

a = 2 

e /3 - / 

e^ - ay 

* = 2 

e /3 - y 


Now, assuming the value c = 0.1 and recalling that 
<*■ ~ ~ / A -0 it\ 

a x = (a + bt^l + b ie u<u i ) 


b(t 1 - t 2 ) 


-0.lt -0.lt 

p rs-* i <->o 

e (a + bt g ) - e (a + bt^) 


it follows that 


b » b 


Making the appropriate substitutions into the model 
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2 ' — t f*>J 1 

e (a + bt) - e (a + bt ) 
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This expression is highly nonlinear in the terms a and b. However, simplification 
followed by an approximation results in a linear expression as seen below. 




w k 


= (a + by) 
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For n > 20 In 3 
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w, « (a + bt ) 
— k i 


1 + 


1 - e 


-c t.+O. It 
i i 


-ct. + 0. It 

1 l . , 

e - 1 + 




~ (a + bt^) 


1 + 


1 - e 


-ct. + 0.1t 
x 1 


-ct. +0.1t 


- 0.5 


and note that c = 0. 1, t = n/4, t = 3n/4. 

1 2 


, .. ( -ct. + O.lt 

« (a + bt x ) [l - 7.57 \e 1 1 
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Now let 


-0.lt. + -£■ 

k, = 1 - 7.57 Ve 1 40 - 1 

t. ' 
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and applying the earlier expressions for a and b 
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where 
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Consequently 
var {w.} 


= E 


(Aa + B6) 2 k 2 1 - E" { (Aa + B6) k fc 


A k t E {a} + B 2 k 2 E{6 2 } + 2ABk 2 E{a6} 
i 1 1 

A 2 k 2 E 2 {a} + B 2 k 2 E 2 {6} + 2ABk 2 E{a} E{6} 


= A 2 k 2 var {a} + B 2 k 2 var {<5_} + 2ABk 2 cov {a 6.} 


Using the following expression for the observation range weighting factor from 


n-i 


Pi = « (Ei + R^i + R 2 A i} 


and also 


s = ) p.(w. - W.) c 

i = 1 


Let 


S = 


n - 2 


so that 


var {» } = Se 
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var {£.} = s /3 


cov {a,<5 } = Sy 


thus 


var {wjJ = A 2 k 2 Se + B 2 k 2 S j3 + 2ABk 2 Sy 
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Since it is assumed that 


w. - w. + e. 

— l 1 —i 

where £. is an unobservable normal error having zero mean and standard deviation a 
= E i^i + c i^i + A i^i 


Then each of the three parts is broken into its mean plus an error 


w„ + e^ \ + ( + p \ + ( w A + e 


-i ( "E. -E 
i i 


C. — C. 

i i 


A. -A. 

l l 


and the assumption 


w„ ~ E.w. 
E. i i 

l 


= C.w. 
C. ii 
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w , 


A.w. 
i i 


It follows that 


W i = W E. + W C. + W A. 

1 1 1 


-i = ^E. + — C . + —A. 

l l l 


These three errors are assumed normally and independently distributed with zero 

mean and standard deviations ’ °C ’ °A ' 

i i i 

It is further assumed that the ratio of the standard deviation to the mean of the three 
random weights is the constant s. Then the variance of the i Ln observation may be 
expressed as 
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Let u k be the difference between the k^ observation and prediction 



where e~ is the variance of w, and e, is the error related to our observation a 2 

•— K — K i 

Note that the error u^is again normally distributed with mean zero and 
var (iLk> = var {e k } + var {e^ } 


= s 2 p.w 2 + k 2 s| 
K i k t. 
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16 
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So the upper confidence limit for the i^ 1 observation 
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k 2 


■ Vk a + k t 2 . s 
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en yn 
16 " 2 


+ p 


ejS - y 


for Student t variable _t, where p is the percent confidence limit desired and n - 2 de- 
grees of freedom. 


C. 4 ADAPTIVE (FOURIER) EXPONENTIAL MODEL 

The models discussed in paragraphs C. 1, C. 3, and C.4 are based on the assumption 
that the underlying process generating varying monthly weight estimates can be ap- 
proximated by an analytic man value function. In this paragraph a model is discussed 
which, rather than assuming such a function, senses the latest tendencies of the trend 
and is therefore adaptive. It reflects only immediate past history, treating the weight 
increment as a random variable. In the simplest case the expected value of the incre- 
ment is constant, that is, with w. being the i^ 1 observation we have 

w., - w. = a + R. 

1+1 i i 

where a is the mean increment and R. is a random residual of zero mean. Going one 
step further one many assume that the next increment also depends on what has hap- 
pened in the past, specifically one may make it proportional to the last increment, 
namely, 

w., - w. = a + b(w. - w. ) + R. 

1+1 i ' i l-r i 


053 


This equation contains a linear autoregressive term b(w. - w. ^ where be is a param- 
eter; it represents a mixed autoregressive model. This equation, without the residual 
term, is also a difference equation and has the solution 

, i a 

w. , - w. = cb + i r 

1+1 1 1 - b 

where the constant c depends upon the initial condition w . Returning to the original 
process, and provided that observations are equally spaced in time, the solution 
becomes 

, i i- 1 . 

1 - b , _ i - 1 

w. = w + cb — = r— + a - r 

i i 1 - b 1 - b 

The only acceptable case of this expression in the weight trend problem is that where 
0 < b < 1 ; in that case it represents a straight line with a superimposed decaying 
exponential. 


The application of the simple and plausible argument that the forces at work in the 
weight evolution process, and the increments which they cause from one observation 
to the next, are on the average constant, but also proportional to the latest increment, 
has resulted in the above model. This model has some desirable properties. It is 
simple. Its behavior is asymptotically linear, but it allows for perturbations which 
change the trend. Thus it is adaptive and a suitable model for processes which behave 
linearly in some time interval, but whose parameters are subject to slow variations 
with time. 

Unfortunately there is one shortcoming. Experimentation with estimation of the 
parameters a and b from data which were generated in accordance with the model re- 
vealed that with 20 to 30 observations available the estimators for a and b were not 
consistently good, and the resulting prediction was not only inferior to the conventional 
linear regressive prediction, but sometimes outright wrong. Two factors compound 
the difficulty. Firstly, using increments, which is analogous to differentiation, in- 
creases the relative magnitude of the residuals; the effect of noise becomes more pro- 
nounced. Secondly, if there is little exponential trend in the data, which means that b 
is close to one, then separation of linear and exponential trend becomes difficult. For 
with b 1, the functions 
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and 


w. . 
1+1 


w. 

1 


b(w. - w. ) 
' 1 i-r 


are linearly independent and there exists then an infinity of solutions. To overcome 
these difficulties we decided to use a model which, without the residual, has the same 
time dependent behavior as this model, but which is not autoregressive in its structure. 
This model is 


-at. 

w. +i ~ w. = a + be 1 + IT 


Here t. denotes the time of the i^ observation. When observations are equally spaced, 
namely t. +i = t. + At, there follows 


w 


i+i 


K 


c) 


of. 

+ ia + ce 1 



R. 

1 


where 


. oAt-i 

c = b(l - e ) 

This equation contains the constant term (w - c), the linear term ia, and the exponen- 

-ati 1 

tially decaying term ce . If straightforward maximum likelihood techniques were 

used to estimate the parameters a, c, and , then one would again encounter the prob- 
, -at; 

lem mentioned before; the functions ia and ce may be almost linearly dependent, 
which means that there are infinitely many combinations of these functions which will 
make a good fit. 


As a consequence one may obtain estimators which make little sense. For this reason 
it was decided to first separate the nonlinear part by a Fourier analysis and then to 
treat the remainder as the increment process described by the very first equation. 


C. 4. 1 FOURIER SMOOTHING 
A transformation of variable is made 


X. 

l 


w. 

i 





w 


n 
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This transformation is such that X - 0, X =0. The functional behavior of X. 

in i 

(1 s i < n) is represented exactly by the following Fourier series 


t. - t 


t. - t 


X. 


B sin 7 r t— + B sm 2ir - r + . . . + B sm (N 2)ir 

i t-t 2 t-t n -2 i “i 

n i n i n i 


The Fourier coefficients B^ are 


n - 1 


i. = — — — r \ X. sin kw y~ 
k n - 1 l t 

• o ** 


t. - t 


i =2 


k = 1, 2, .... n-2 


A smoothed function X. through the data X. is obtained by truncating the X. series and 
by adjusting the coefficients B^, namely 


X. = 

i 


i^l 


t. - t 

V sin kir t -~ t 

n i 


The truncation serves to suppress noise. The X. series contains four terms. This 
number of terms was arrived at empirically by experimentation. The adjustment of 
the coefficients serves to obtain a smoothed function which does not have any points of 
inflection. This adjustment is achieved by comparing the coefficients B^ to the Fourier 
coefficients of an exponential whose decay rate a is such that 

e =0.1 

where the value 0. 1 was selected empirically. The rule for adjustment is 


B 


V 


B, 


Bl/I 

i k i 


if 0 S V 13 ! - A |/\ 

if v b ! =• V\ 

if B./B <0 

k 1 


h k = 2, 3, 4, 5 
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If the first Fourier coefficient is less than 5 percent of the increase of w. in the 
interval (i, n) then it is assumed that contains no significant nonlinear trend and the 
smoothed function is 


X. 

1 


0 , if 


B 

l 


w 


n 


w 

i 


0,05 


The smoothed function w. through the normalized observations follows from reversing 
the variable transformation 


w. = 
1 


w + 
1 


(w 


n 




n 


i ^ 

-r + x. 

t i 


C.4 . 2 SEPARATION OF THE EXPONENTIAL CONTENT 

The model assumes that the nonlinearity present in the data be of exponential form. 
The next step is to find that exponential which best matches the nonlinearity X.. The 
matching is very conveniently done in the spectral domain, using the least squares 
error as criterion. The Fourier spectrum of X. is compared with the spectra of 
13 functions, having the form 

-a (t-t ) 

fg(t) = a + bt + e * 

where the range of the decay constants a ^ is selected empirically such that the 
min (ctjj) = « i , max (a^ = g' i3> and 


-a (t -t ) 
13 v n r 


0.1 




0.75 - 0.05^ 


The spectrum corresponding to f^(t) is 

,k 




kn 


(- 1) : e 


- 1 


1 + 


k7T 


(t 


V°-e 


k 

l 


1 , 2 , 

1 , 2 , 


5 

..,13 
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We consider now four possible combinations of nonlinearity (see Figure C-3). 
Case 1 - B i is negative and w r - w i is positive. 

Case 2 - B i is positive and w n - is positive. 

Case 3 - B i is positive and w r - w i is negative. 

Case 4 - B.^ is negative and is negative. 


Cases 1 and 3 are rejected because an extrapolation of their behavior does not agree 
with the physical picture of weight growth. It is then assumed that no nonlinearity 
exists, that is, = 0. 


In Cases 3 and 4 the comparison of the B^' and the (c^) is such that one wants to find 
the value a’ where < a* < a , which produces the least squares error. The cri- 
terion for the error as expressed by the two spectra is E (Og) 

5 5 


E(Og) 


[C^A k (Q^)] 2 - £ Cyya^', i = 1, 2, .... 13 


k = 1 


k =1 


where the comparative magnitude of the exponentials, C^, is determined from em- 
pirical considerations, namely 


= - 0.8 


w - w 
n i 


1 - e 


-ajt -t ) 
r n i' 


in Case 2 


C 


i 


w - w 
n i 


1 - e 


a At -t ) 
P n i 


in Case 4 


The value a' has the property 

E(a') = min E(a) a ^ a s a» i3 

The exponent with decay constant o' gives the best fit. We first find a?j such that 
E(a.) = min E(Og) i = 1, 2, .... 13 


If a. coincides with one of the end points, namely = ct^ or = a^, then o' ~ a y 
Otherwise a' is determined by interpolation with a parabolic arc 


— + a. 

2c j-i 
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where 


b 


1 

1 

r 

CM 

r-i 

1 

eT 

1 

-27 

-1 

E <“j> 

- E <v> 

c 


to. , - a. ) 

L 3 + i J-i 

I 

CM 

H 

1 

<r 

i 

H 

+ 





Having found a\ the corresponding Fourier coefficients are obtained and the magnitude 
c ! of the exponential content is 


5 

I V“'> B k' 


1 VV) 

k = 1 


There is one restriction in Case 4, which is to avoid crossing into negative weights in 
the prediction range. Any index & when it has the property C^ > 0. 8 w.^ is considered 
a forbidden region. If there is a forbidden region at all then it will involve an index 
set i = 1, 2, . . . , f. If f = 13 then nonlinearity must be rejected and we assume again 
= 0. If 1 s f < 13, and <x falls in the forbidden region, including a. = a^, then we 
substitute a ’ = of. 


The exponential trend contained in the data w^ has now been identified and is subtracted 

from the data. There remains the corrected data Z., 

i 

-a’(t -t ) 

Z. = w. - c’ e 
i i 


In the cases where nonlinearity was rejected, i.e. , where - 0, we have c* - 0, and 

Z, = w.. 
l i 

C. 4. 3 ESTIMATION OF PARAMETERS AND PREDICTION 

A linear fit is made through the Z. based on increments, including decreasing weight- 
ing. The increments are 

Y. = Z. - Z._ i , i = 2, 3, . . . , n 
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The model is 


Y. = a ♦ R, 

/\ 

where R. is a normal residual having zero mean. The estimator a is determined from 


a 


x 


t -t. 


n 1 


P 


Y. 

1 


X 


t 


n 


-t. 

1 


P 


where the weighting coefficient p is defined by p n 1 = k and k is given as input to the 

computer program. If k is not specified the program uses p = k = 1. The estimator 

cr for the variance of Y. is 

i 


"2 

a 


n 



i = 2 


t -t. 
n i 

P (Y. 


a) 


2 


In making the prediction it is necessary to distinguish whether the estimator a is posi- 
tive or negative. In the latter case the monthly increments are reduced exponentially 
in the prediction range, in order to prevent crossing into negative weights. There 
follows 


w = Z + (t - t )a 
m n ' m n ; 


-“’(VX) - 

-t)a + c ! e , a > 0 , 


m > n 


or 


vy = p 
m 


(tm " tn) Z + c> e" a(tm_tl) 
n 


, a < 0 , m > n 


where 


0 



a 


The upper 95 percent confidence limit G is determined from 


G 


m 


w 


m 


+ 


1.64 



061 



C. 4. 4 FOURIER ANALYSIS OF A FUNCTION CONTAINING AN 

EXPONENTIAL TERM 

Consider the function 

f(x) = a + bx + e 001 

in which a and b are arbitrary constants while a is positive. The domain of f(x) is the 
interval (0, L). We wish to represent the nonlinear part of f(x) by a rapidly converging 
Fourier series. We first subtract from f(x) a linear function such that 

g(x) = f(x) - a’ - b'x 

and 

g(0) = g(L) = 0 

There follows 

a* = 1 + a 

b' = ~ (e ^ - 1) + b 

g(x) = - 1 - yi (e - l)x + e QX , 0 < x < L 


The Fourier analysis is applied to data whose first and last points go through zero by 
virtue of removing a linear function from the original data. In order that the first 
derivative be a continuous function, it is hypothesized that the smoothed curve fit to the 
data be a periodic sine-type function, g(x + L) = - g(x) with the interval where the data 
fall representing a half-period. It is important that a function with a continuous first 
derivative is used as the terms of a Fourier series expansion decay as n where k 
is the highest order derivative that is continuous. The Fourier series representation 
of this sine-type function contains only sine terms, thus 


g(x) 


V A • k7r 

1 A k Sm ~ V * * * * X 
k = 1 


with 


L 

A k j- J g(x) sin ^ x dx 
0 
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The following integrals are involved in evaluating this expression 


—05C 

e sin 0xdx 


El - A " l) k e 0 ^] _ k7r 

a 2 + 0 2 ’ * L 


sin /3 xdx 


= j [1 ~ (- l) k l 


x sin /3xdx 


- f <- « k 


The resulting Fourier coefficients are 


A. = j7~ 
k kTr 


i + £ 

a 


[ (- l) k e -aL - 1] 


C. 4. 5 LEAST-SQUARES APPROXIMATION OF AN EMPIRICAL FUNCTION BY 
ANOTHER FUNCTION 

Consider the case where we have a function f(x), defined on the interval (0, L), which 
was obtained from smoothing of empirical data with a truncated Fourier series 


f(x) 


I 


i = 1 


B. sin — x 
i L 


0 < x < L 


To approximate f(x) by some known function g(x;o) which is also given in its Fourier 
series representation 


g(x;a) = 


I 

k = 1 


. , . . kjr 

Aj t (a) sm — x 


The approximation is of the form 
f(x) « Cg(x;a) 
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where the magnitude C and the parameter a may be varied in order to obtain the best 
approximation. The least-squares criterion requires that 

L 

E = J [ f (x) - Cg(x;o)] 2 , dx = minimum 
0 

and there follow, from differentiation with respect to the parameters, the simultaneous 
equations 

L 

[ [ f (x) - Cg(x;o)] g(x;o)dx = 0 

J 

0 

and 

J (f(x) - Cg(x;o)] 

0 


Rather than solving these two equations simultaneously the approach will be taken of 
first holding a fixed, solving the first equation, then varying a and locating the mini- 
mum of E in some way. The first equation is rewritten as 

L L 

j f(x) g(x;or)dx = C J g(x;o) g(x;o)dx 
0 0 

In virtue of the orthogonality properties of the Fourier series we have 

oo 

I A i (a,B. = C £ VW 
i = 1 k = 1 

and the factor C which provides the best approximation in the sense of least squares is 


n 



I a i>> 

k = 1 
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For practical purposes the sum in the denominator cannot be carried to infinity. The 
question arises how many of the coefficients are needed. One feels intuitively that 
all coefficients with k > n should be omitted, since in the Fourier series terms of order 
greater than n cannot contribute anything to the function f(x). It will now be shown that 
the integrated square error E is indeed smallest if the following expression for C 
is used: 


n 




C = 


i = 1 
n 


Z A k a <“> 


i = 1 


Expanding E 


Jj 

E = f {[f(x)] 2 - 2Cf(x) g(x;a) + [ Cg(x ;«)] 2 }dx 


substituting 


E = / [f(x)] 2 dx - C 2 / [g(x;ce)] 2 dx 


2E 

L 


n 

- Z 


B. 

l 


2 - C 2 


A k 2 «*) 


i = 1 


k = 1 


2E 

L 


n 


n 

I 

i = 1 


A. (a) B. 
i 1 1 


B. 

l 


a 'i =1 


Z A k 2 <“> 

k =1 


The error thus expressed implies that the Fourier series of the approximating function 
g(x;a!) is carried to an infinity of terms. 
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Since 


V A k 2 (a) < ^ A k 2 (a) 

k = 1 k = l 

It is seen that if g(x;a) is represented only by the first m terms of its Fourier series, 
where m < n, then E will be smaller. The desired conclusion is now at hand. The 
approximating function for f(x) which produces the best approximation in the sense of 
least squares is 

n 

\ kir 

Cg(x;a) = 2 A k (a) sin — x 

k = 1 

where C is is determined from the second expression for C. The integrated error 
square is 



k = 1 


The optimal value of the parameter is the one which minimizes E. This value may 
have to be determined by searching methods rather than analytically. 


C. 5 NOMENCLATURE 


a, b, c 
a, b, c 
cov { } 
e 

E, C, A 

E{ } 

L 

m 

n 


Model parameters. 

Maximum likelihood estimators of the model parameters. 

Covariance of two random variables in the argument { } . 

Unobservable error between observed value and mean value provided 
by model. 

Proportions of observed value which are Estimated, Calculated, 
and Actual. 

Expected value of the argument { } . 

Likelihood function. 

Weighting factor based on E, C, and A. 

Number of observations. 
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CO > 


R l' R s 


t 

t 


var 

w 

w 

w 

<j 


{ 


} 


Weighting terms defining relationship between s values for the E, C, 
and A weight components. 

Constant ratio of standard deviation to weight components (i.e. , E, C, 
and A components). 

Maximum likelihood estimator of s. 

Time. 

Parameter of Students t distribution. 

Variance of the random variable in the argument { } . 

Weight. 

Predicted value of weight. 

Observed value of weight. 

Standard deviation. 


Subscripts 

i The value of i denotes a specific observed data point, 

k The value of k denotes a specific predicted point. 
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APPENDIX D 


PERFORMANCE RELATIONSHIPS 


D.l INTRODUCTION 

When drag, angle of attack, and gravity losses do not change significantly as a vehi- 
cle's weight is perturbed, the impulse velocity rocket equation can be used with good 
accuracy to determine the effect of vehicle perturbations on stage dry weight, propel- 
lant loading, and specific impulse. This is the case with the Apollo Spacecraft during 
earth orbit, translunar injection, and the remainder of its space flight. When applied 
to the Saturn/Apollo launch vehicle this equation yields significant errors due to the 
changing velocity losses. In either case, the velocity increment used in the impulsive 
equation must include all velocity losses as well as the actual change in velocity. 

Using this equation, trade-off factors can be found as the ratio of total derivatives. 
Partial derivatives are evaluated from known mass ratios, ideal velocity increments, 
and specific impulses. Control values are used to evaluate these derivatives. Appro- 
priate assumptions must be made to eliminate or evaluate total derivatives not directly 
entering into the trade-off factor. These assumptions can include such constraints as 
constant propellant loading or a given ratio of stage propellant loadings, no change in 
ideal impulsive velocity or specific impulse, constant liftoff weight, etc. 

The following paragraphs show the derivation of the generalized equations for the im- 
pulsive velocity changes of an N-stage rocket vehicle in terms of the changes in stage 
specific impulse, stage dry weight, and stage propellant loading. Expressions are 

presented for the velocity change of: 
th. 

a. the k stage. 

b. the sum of the first K stages. 

c . the sum of all N stages . 

D. 2 DERIVATION OF EQUATIONS 

Consider the impulsive velocity change rocket equation 

W i 

av - (1) 
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where 


AV = ideal velocity change (fps) 

I = specific impulse (sec) 
sp 

2 

g = acceleration due to gravity (ft/sec ) 

W = weight at beginning of AV (lbs) 

W 2 = weight at end of AV (lbs) 

The weight at the start of the impulsive velocity change can be thought of as made up 
of "dry" weight (W Q ) and propellant weight (W p ) , where the "dry" weight is the total 
vehicle weight less the propellant weight burned to achieve the velocity change. 

W o = W D (2a) 

and 

\V x = W D + W p (2b) 

Equation (1) can then be written 

/ W D + W PN 

* v = w D p ) (3) 


The total differential of velocity change is then 


d(AV) 


9(AV) 

91 

sp 


d I 


sp 


91AV) 

aW D 


d W 


D 


9(AV) 

9W p 


d W 

P 


(4) 


From Equation (3) 


3( AV) 
91 


sp 


g In 


/ W D + W P 

V W D 


(5a) 


and 


a(AV) 


sp & 

(W D + W p ) 


Aim 

0W D 


sp 


W 


D 


(w D + W p ) 


(5b) 


(5c) 
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Substituting the preceding partial derivatives into Equation (4) 


d(AV) 


g In 


W D + W P 


W 


D 


d I + 
sp 


g I, 


S£_ 


w D + w p 


dW, 



g l 


IE. 


D 


+ w 




dW 


D 


( 6 ) 


For a multi-stage vehicle the above equation can be used by adding the velocity incre- 
ments from each stage burned during the mission. Care must be taken to include all 
weight including propellants, above the stage being burned, as dry weight in evaluating 
the derivatives for the stage being burned. For example, for a two-stage vehicle, the 
second stage dry weight plus propellants plus the first stage dry weight must be in- 
cluded as dry weight in evaluating first stage derivatives. 


th 

Now consider the "K stage" of an "N-stage" vehicle. Using Equation 4, an incre- 
mental impulsive velocity change occuring during this stage is given by 


d(AV) K 



d I 

sp K 


+ 



dW. 


D 


K 


+ 



( 7 ) 


where W n includes all the vehicle weight at burnout of the K l stage and is therefore 
. K 
given by 



( 8 ) 


The convention used herein is that when the subscript is greater than the upper limit 
(N in the above equation) the value of the parameter is zero. From Equation (8) , 



( 9 ) 


Equation (7) can then be written 


d(AV) 


K 


9AV \ 

91 J 

S P K 

9AV ^ 

9w p ; 


d I 


sp 


K 

dW, 


(m) l k + 

•L' 17- • _ 1 


K i = K 


i+i 


K 


K 


( 10 ) 
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By summing Equation (10) from 1 to K the incremental impulsive velocity change for 
the first K stages is obtained. 


K 





+ dW 



+ 



} 


or 



In double summations, as in the above equation, the inner summation is performed 
once for each value of the outer summation index. It can be shown that 



(12a) 


K 


J = 1 


N 


i = j 



dW 

i+i 



N 

_ V 

/ 

j=K+2 


fcl 

> 

/ 


i=K+l 



(12b) 
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Substituting Equations (12a and 12b) into Equation (11) 



or factoring, 
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Equation (13) can be further factored to yield 



Equation (15) gives the incremental impulsive velocity change through the first K stages 
of an N-stage vehicle. By letting K equal N the total incremental impulsive velocity 
change through the N stages can be found. 


Letting K equal N, 


N 

V 

/ 

L I 

j = 1 


i=K+l 


( 3AV 

V aW D 


dWD. 

J 


N 

V 

/ 


i=N+l 


/ 9AV 

\ 8W D 


d W D =0 
j 


and 


N 

V -1 


j = 1 


j — 1 / \ 
( 9AV \ 

V3W J 

i=K+l i 


dW 


P. 

1 


N 


j = 1 


i=N+l 


/ 8AV 

V aW D ^. 


d Wp =0 

j 
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since the lower limit of the summation index is greater than the upper limit. Equa- 
tion (15) then becomes, for K = N, 




Equation (16) gives the total incremental impulsive velocity change for an N-stage ve- 
hicle. All partial derivatives are calculated from a nominal or reference mission 
using Equations (5a, 5b, and 5c). 



Equations (10) , (15), or (16) can now be used to obtain trade-off factors (sensitivity 
factors). This is done by imposing constraints dictated by the vehicle configuration 
and mission and by setting to zero all differentials not of interest. The trade-off fac- 
tors are then the ratio of the coefficients of the differentials being considered. 


Possible constraints which might be imposed include: 

1. No change in total ideal velocity. This assumes no change in velocity losses 
and that the vehicle can still perform the nominal mission. The nominal 
mission is that at which the partial derivatives are evaluated, 

2. No ideal velocity change in any given stage (as opposed to constraint 1 in 
which the sum of the ideal velocity for all stages is constant) . 

3. Constant consumed propellant per stage. 

4. Constant total consumed propellant. 

5. Constant consumed propellant ratio among stages. 

6. Constant liftoff weight. 

7. Constraints imposed by stage definition (when one physical vehicle stage is 
broken into two or more "stages" for analysis purposes because of engine 
restarts or discrete weight jettisons during any phase) . 

8. Combinations of the above constraints. 
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D.4 EXAMPLES OF USE OF EQUATIONS TO OBTAIN TRADE-OFF FACTORS 


Consider a three-stage launch vehicle to inject a payload into translunar or interplane- 
tary flight. The launch mission profile is the same as the Saturn V/Apollo LOR vehi- 
cle, i. e. , 

1. Liftoff to first stage jettison. 

2. Second stage ignition to launch escape system jettison. 

3. LES jettison to second stage jettison. 

4. Third stage ignition to earth orbit. 

5. Translunar or interplanetary injection (propellant boil-off occurs during 
earth orbit) . 

For analysis purposes the above five phases will be considered as "stages" (i.e., N = 5). 

D.4.1 EXAMPLE I 
Constraints: 


1. Total mission ideal velocity constant 


i = 1 


d(AV). = 0 


2. Injection ideal velocity constant 


d(AV) = 0 


3. Constant consumed propellant loading per physical stage. 


Constraint 1 above implies that Equation (16) must equal zero, while constraint 2 im- 
plies that Equation (10) equals zero for K = 5. Constraint 3 implies 

dW p = dW p = dW p = 0 (17a) 

1 2 3 

and 

dW p + dW p = 0 (17b) 

4 5 
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From Equation (16) , 


5 

I d,av) j 

j = l 



+ 


I 


j = l 


I 


i = 1 



dW 


D. 

J 



Factoring in constraint 1 and Equations 17a and 17b 


0 



+ 




dW 


D. 

J 



+ 




(19) 


Making use of Equation (17b) the above equation reduces to 


0 




V* ( 3AV A 

A, Aw d / 




( 20 ) 


From Equation (10) (constraint 2) 


0 



+ 



dW. 


D 


5 



( 21 ) 
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Solving for dWp , 

5 



Substituting for dW p in Equation (20), 

5 


0 


5 

V" 

\ 

/_, 

j = 1 


(d AV 

V». 


sp 


dl + 
s Pj 




dW 


D. 

J 







+ 




( 22 ) 


All trade-off factors involving the weight or specific impulse of any stage with respect 
to the weight or specific impulse of the same or any other stage can now be determined 
from Equation (22) . This is done by solving Equation (22) for the ratio of the two dif- 
ferentials making up the trade-off factor, assuming all other differentials to be zero. 
Payload is included in last stage dry weight. 

Some specific examples of the calculation of trade-off factors are: 

a. The ratio of first stage dry weight to last stage dry weight (that is, 
payload) . 
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From Equation (22) retaining only dW Q , and dW D among the differentials, 

5 



or, solving for the desired ratio, 



i 


b. The ratio of second stage specific impulse to weight of propellant boiloff in 
earth orbit (that is stage four "dry weight"). Note that the boiloff propel- 
lant must be considered as dry weight in this analysis due to constraint 3 
and the fact that all dWp's have been assumed zero in deriving Equation 22. 

Also note that calculation stages two and three are both physical vehicle 
stage two. Therefore when considering changes in physical stage specific 
impulse , the change of specific impulse in all the calculation stages making 
up that physical stage must be considered (that is, dlgp^ = d Isp 3 > • This, 
of course, is not true for dry weight and propellant changes since these 
changes have been allowed for in the derivation of the basic equations by the 
definition of the calculation stages . 
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From Equation 22, retaining only dl , Dl , and dW D among the 

*2 *3 4 

differentials 




+ 







- 0 


while from physical considerations 




3 


Again solving for the desired ratio, 



c. The ratio of second stage specific impulse to fourth stage specific impulse. 
From Equation 22 retaining only dl , dl , dl , anddl among the 

*2 *3 *4 *5 

differentials, 



while from physical considerations 
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and 




Solving for the desired ratios , 



Other trade-off factors can be calculated in like manner by considering 
other differentials. This is not as laborious as might be suspected at first 
glance since the individual partial derivatives need only be calculated once, 
and their groupings, the coefficients of the differentials, also need only be 
calculated once. 

D.4.2 EXAMPLE II 
Constraints: 


1 . 


Total mission ideal velocity constant 



0 


2 . 

3. 

4. 


5. 


Injection ideal velocity constant 


d(AV) s 


0 


Constant consumed propellant ratio among stages. 

Constant second physical stage propellant consumed prior to LES jettison 
(i.e. , constant second calculation stage propellants, dW = 0). 

Constant liftoff weight. 
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From constraints 1 and 2, as in Example I, 



From constraint 4, 

dW p =0 (28) 

2 


While from constraint 3 
+ W 


R x = 


p "P 

2 3 


and 


R 


W p + W p 

4 5 


so that 


R dW n = dW D + dW D 

1 P i P 2 P 3 


= d W T 


and 


R 2 dW = d W p + d W p 

1 4 5 


(29a) 


(29b) 


(30a) 


(30b) 
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From constraint 5, 


dW D + dW D + dW D + dW + dW + dW + dW + dW D 

1 2 3 4 5 1 2 3 

+ dW + dW p = 0 (31) 

4 5 


Substituting Equations (28, 30a, and 30b) into the above equation, 

dW D + dW D + dW D + dW D + dW + dW + 0 + R dW 

1 2 3 4 5 1 - 1 F : 

+ R d W_ - dW„ = 0 

2 P P 

1 5 


Solving for d W p 


dW, 


- (dW D + dW D + d\V D + dW Q + dW D ) 


1 + R + R 


(32) 


From Equation (27) 



Substituting the above into Equation (30b) , 



(33) 


(34) 
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Expanding the last summation of Equation (26), with constraint 1, 
let 
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Factoring, 


Sum 




*1 


+ 







+ 




(35) 


Substituting Equations (32, 35) into Equation (26), using constraint 1, 


0 



Q 

1 + *1 + R 2 


dW 


D. 

J 




f 9AV \ 






(36) 


Where Q is the coefficient of d Wp in Equation (35) . Equation (36) is comparable to 
Equation (22) of Example I, and can be used to compute the desired trade-off factors 
in the same manner as was done in Example I. and R 2 are given by Equations (29a, 
29b) or can be assigned arbitrarily. By letting R 2 go to zero and retaining R 1 , the 
case of constant propellant loading in the third physical stage and a constant propellant 
loading ratio between the first two physical stages can be investigated using Equation (36). 
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COMPUTER PROGRAM DESCRIPTIONS 
(USER’S GUIDE) 
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Daytona Beach, Florida 


ABSTRACT 


The Mark II Computational System is being designed and developed for the purpose of 
prediction analysis. This User's Guide describes and explains how to use the computer 
programs comprising Mark II. 
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INTRODUCTION 


This section describes: 

a. The historical development of the Mark II System, 

b. The current, general philosophy of the Mark II System, 

c. The Mark II Computer System, 

d. A brief description of the current document. 

HISTORICAL BACKGROUND 

In August of 1964, work was started on a computer program which could predict the 
weight of functional systems at some future date. The fii^st model to be programmed 
was a linear model whose parameters were estimated by maximum-likelihood estima- 
tion. At that time, there was a small number of functional systems the weights of 
which had to be predicted each month. Input data for each functional system was kept 
on punched cards. As more data was received, the deck was simply enlarged to include 
the new information. As long as there were only a few functional systems and a limited 
amount of data for each, this mode of operation was quite satisfactory. 

In December of 1964, the exponential model was introduced. About this same time the 
computerized removal of nonrandom changes was initiated. With the increasing num- 
ber of functional systems being processed, the card input of data was becoming cum- 
bersome. To alleviate this problem, the Weight Data File (WDF) was created in 
March 1965. The Weight Data File is a magnetic tape record of all the reported ob- 
served weights, nonrandom changes, and other weight data. A program was written 
to update the Weight Data File as additional information became available. 

In order that running of the linear and/or exponential-model computer programs be as 
easy as possible, a combination program was written in April 1965. This program 
allowed the running of either or both of the existing programs, permitting a significant 
reduction in the necessary control cards. The combination program, along with the 
Update program and the Weight Data File, served as the core of the first system as- 
sembled for the purpose of trend prediction. This first system, which was no more 
than a loosely tied-together group of programs, was called Mark I and was completed 
during April 1965. 
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Since Mark I was first introduced, it has undergone many revisions. New auxiliary 
programs have been written and tied into this collection of programs. Two new trend 
models were developed and programmed. 

The Fourier model was developed in May 1965, and the logistic model in June 1965. 

It soon became apparent that Mark I was becoming obsolete. Another revision was in 
order and an entirely new system design was initiated in June 1965. The new system 
was appropriately named Mark II. 

The Mark II System is still in an evolutionary state, and will continue to be for quite 
some time to come; however, enough of the initial concept formulation and sufficient 
programs are completed to warrant the publishing of the first User's Guide. 

MARK II SYSTEM PHILOSOPHY 

Mark II is a system of computer programs written for the IBM 7044 computer. These 
programs operate as physically independent but functionally consistent units. Each 
program in the system is designed for a specific task. Each may utilize output from 
other programs in the system and from information stored in the Weight Data File. 

The system operates under a monitor system, SPACE (an acronym for Subsystem 
Processor for the_Apollo Computing Effort), which handles communication between 
programs. The system also provides a tape library of Mark II programs and has bi- 
nary input/ output (I/O) capabilities. 

Most computer programs are designed to be run under control of a supervisory pro- 
gram or "system. The advantages of these system attributes accrue from their ability 
to provide standardized I/O subroutines, as well as an automated means of executing 
the desired program or sequence of programs. 

The particular system attributes that were sought for Mark II were: 

a. The I/O subroutines must be as efficient as possible, for large quantities of 
binary data. 

b. The I/O routines must provide a very convenient and flexible means of pro- 
gram intercommunication. 

c. The system itself must provide the capability of a program library such that 
the desired programs for a production run can rapidly be called from magnetic 
tape or disk file in any order. 
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SPACE, which operates as a subset of the 7040/7044 IB JOB Processor Monitor, was 
chosen as the executive or administrative program for Mark II. The framework of 
SPACE is centered around a collection of seven versatile I/O subroutines. By using 
these subroutines the programmer candisassociate himself completely from such prob- 
lems as the physical aspects of retrieving or creating externally stored data, blocking/ 
unblocking logicial records, file positioning, synchronized CPU/channel overlap, and 
the differences in the characteristics of recording devices. Thus he is permitted to 
concentrate on his primary task - the internal processing of data. 

A basic requirement of any executive monitor is to automate the running of a series of 
data processing programs by calling these programs from a library tape as they are 
needed. This requirement necessitates the SPACE user to create his own library by 
employing the chain feature of IBLDR. Enhanced by these facilities, the objectives of 
the monitor may be outlined as follows: 

a. To create data files on a given I/O device with the ability to randomly access 
any of these files. 

b. To enable ’’data- sharing” capabilities whereby files of output data from any 
program(s) can serve as input data to any later program(s), either within the 
same job or not. 

c. To provide a framework around which systems of data processing programs 
can be developed. Once data is available in the standard SPACE file format, 
the whole range of previously written programs is available to process it. 

d. To provide a flexible means of program intercommunication. 

Since we have a monitor system specializing in a library of intercommunicating pro- 
grams, we can build Mark II as a series of programs rather than just one program. 
This modularized concept is very desirable for many reasons three of which are: 

a. Each program can be written as efficiently as possible without worrying about 
interfering with other program areas. 

b. Many programmers can work on Mark II permitting many programs to be 
written in a short span of time. 

c. New capabilities can be easily added to Mark II by replacing the affected pro- 
grams by new ones or by adding new programs to the series. 
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MARK II COMPUTER SYSTEM 


An examination of the weight trending problem indicates that the operations fall into 
one of four groups: 

a. Program Control. 

b. Input Data Processing. 

c. Trend Prediction. 

d. Output Data Processing. 

These groups are functionally dependent in that any one group depends on another for 
instructions, input data, output data, etc. The basic logical structure of the Mark II 
system is illustrated in Figure 1. The four functional components are indicated to- 
gether with the important data links . 

Program Control 

This group is the most sensitive of the four. Often referred to as the monitor or exec- 
utive routine, it has the responsibility of accurately interpreting the user's instructions 
and of providing the required output. It establishes the proper sequence of operations 
for each job to be run and then monitors the resulting execution. It efficiently handles 
the flow of large blocks of data into and through the computer and communicates with 
all programs in the system. 

The user, having decided on a sequence of operations, turns control over to the mon- 
itor. Thereafter, the monitor functions much as a bookkeeper. It executes programs 
in a specified order and keeps track of all data generated by individual programs. 

When the sequence of operations has been completed, the job is terminated. Notice 
that the user has the flexibility of performing a long and involved analysis study or 
making a series of several short computer runs each with a specific goal in mind. 

Input Data Processing 

Input data may be classified as: 

a. Functional System Weight Data. 

b. Instructions. 

Functional System Weight Data is a complete history of the weight data for a given 
functional system. This data includes time points, Estimated, Calculated, and Actual 
(E/C/ A) weight percentages, nonrandom weight changes, shipping date, etc. The 
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Figure 1. Mark II Basic Flow 
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historical weight data is stored on magnetic tape and is updated monthly or whenever 
a weight change is received. This involves the extraction of raw data from reports, 
graphs, charts, etc. and the preparation of such data for the computer. Input data 
cards must be punched, and when all the raw data has been reduced to data cards, the 
cards are processed by a computer program which performs data consistency checks 
and then updates the weight data file. Thus, the entire history of weight data for each 
functional system is stored on magnetic tape. This history data file will be called the 
Weight Data File (WDF) . 

A second type of input data is classified as input instructions. It includes operating 
instructions and sequencing instructions. For example, the user must specify what 
particular trend prediction programs are to be executed for each functional system. 

He must also specify which auxiliary programs, if any, are to be executed, and the 
order in which these auxiliary programs are to be executed. 

Trend Prediction 

Four prediction models are currently available in the Mark II Computer System: 

a. Maximum Likelihood Linear. 

b. Maximum Likelihood Nonlinear. 

c. Adaptive (Fourier) Exponential. 

d. Asymptotic (Logistic) Exponential. 

Each of the models operates in the same general manner. The weight data for the 
given functional system is moved from a temporary storage location to a working stor- 
age area. Here it is prepared for the actual trending operation by removal of non- 
random changes and normalization of any outliers. This pretrend data preparation is 
dictated by the user, and the appropriate instructions are entered into the computer 
as input instructions. Once the data has been prepared for prediction analysis, pro- 
gram parameters are computed and the mean trend line is determined. Posttrend 
operations are now executed, and include computation of the prediction lines, calcula- 
tion of confidence limits, and the introduction of E/C/A effects in the prediction range. 
The entire set of weight data, to include history data and predicted data, is stored on 
magnetic tape for future reference. 

Output Data Processing 

The output data processing programs perform various computations on the trended data 
in orutr to provide the most timely output for the user. Tabular listings and plots of 


6 



each functional system that was trended during the computer run are presented. An- 
other program computes the total weight of a spacecraft or launch vehicle from the 
individual functional systems which comprise the spacecraft or launch vehicle. Other 
operations in this area include: 

a. Computation of probable errors. 

b. Analysis of trade-offs. 

c. Scheduling computations. 

d. Cost data processing. 

The result of this group of programs is a set of tabular data, graphs, and charts which 
present a complete picture of the current weight status of a launch vehicle or spacecraft. 

Figure 2 presents, in elemental form, the concepts discussed above. Here, the ele- 
ments for Prediction Analysis have been arranged in five groups: 

a. Monitor and Executive Routine. 

b. Data File Library - WDF. 

c. Pretrend Data Processing. 

d. Trend Prediction. 

e. Prediction Output Processing. 

PURPOSE OF THE CURRENT PUBLICATION 

This document, as published today and as will be subsequently updated, will serve as 
an up-to-date description of the programs and capabilities available with the Mark II 
System. Each program currently incorporated in the system will be represented by 
a section containing the following information: 

a. A brief word description of each program. 

b. A pictorial representation of the output tape written by the program or typical 
printed output from the program. 

c. A flow chart. 

d. A computer program listing. 

REVISIONS 

As new programs are added or as existing programs are modified, revisions will be 
published documenting these additions and revisions . 
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Instructions 

Data 


Data File Library 


Pretrend Data Processing 


Data Normalization, Gross Error Elimi- 
nation, Project Phase Time Conversion, 
Repeating Mode Considerations, Accu- 
racy Considerations 


Monitor 

and 

Executive 

Routine 


Trend Prediction (Using E/C/A) 

M-L 

Linear 

M-L 

Non- 

Linear 

Logistic 

Fourier 

Other 

Prediction Programs 


Trend, Predictions, 

Confidence Limits, etc. 


Output Tables, 
Charts, Graphs 


Prediction Output Data Processing- 


Predicted change incorporation, logic 
perturbation, real time conversion, prob- 
ability, repeating mode analysis, targeting 
analysis, trend mode selection, prediction 
bounds, probable error, functional system 
interdependence, summary of trends, stage 
and module calculations, S/C and L/V 
calculations, deficiencies, buyoffs, per- 
formance adjustments, decision relevancy 
(criticality) 


Figure 2 . Mark II Prediction Analysis Computation System Elements 
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The decimal numbering system has been chosen to allow some flexibility in paginating 
revisions and/or additions. In addition to a Reference (page) No. , each page will show 
its Issue Date and the date of the Superseded page. 
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Reference No. 54. 0 

Issue Date 23 Dec 1965 
Supersedes New 


EXECUTIVE CONTROL - 54S fSPACEt 

Overall control of the Mark II Computational System is maintained by the executive 
program, SPACE, which operates as a subset of the 7040/7044 IBJOB Processor 
Monitor. The user is referred to the Appendix for a complete description of SPACE. 

The link structure of the complete Mark II System is presented on Reference No. 54. 5 
Notice that the first link is the SPACE link while the very last link is the Utility link. 
Since the Mark n System operates by loading the specified program link into core 
storage from the Mark II library and by executing the specified program, the input data 
deck consists of a link card, followed by the input data for that program. Program 
data decks are stacked one behind the other in the order in which the programs are to 
be executed. The remainder of this section will be devoted to presenting several ex- 
amples of job deck "set-ups". 


Reference No. 54. 1 . 

Issue Date 23 Dec 1965 

Supersedes New 

EXAMPLE 1 - It is desired to run the trend prediction programs on the specified func- 
tional systems, the History Plot Program, the Summing Program, and the Probable 
Error Program. The complete input deck would look as is shown below: 

CARD COLUMNS 

1 8 72 

REELS R 691 NOLABEL R 692 NOLABEL R 693 NOLABEL 
R 84 NO LABEL NOTYPE * 




MAIN * 

1122101 XXX X 1.00 

1122103 1122106 X 

1234113 X 

1234116 1234119 XX X 

1234162 X X 1.00 


1 

1 

3 

1. 00 1 
2 



MAIN * 
1122100 
1234100 

HIS 



* 

1122100 2 12 1965 

1122105 1. TREND 

END * 

1234100 1 12 1965 

1234116 846.3 7.8 

1234118 4. TREND 

END * 

END OF SUMS * 


2 * 


2 * 



RSS * 

MISION 105 12 65 * 

PARTS 1122100 L/V FACTOR .185 * 

PARTS 1234100 L/V FACTOR .810 * 

ENDCSE * 


END RSS * 


Reference No. 54. 2 

Issue Date 23 Dec 1965 
Supersedes New 

The data deck listed above will perform the operations specified in the example heading. 

In particular, the following items should be noted: 

0 Packet A, which consists of the "Reels” card, must be the first card in the 
input deck. For this example, the results of the linear program would be 
written on reel 691; the results of the nonlinear program would be written 
on reel 692; the results of the Fourier model would be written on reel 693; 
and the results of the logistic model would be written on reel 84. 

• Packet B consists of those data cards which are necessary to run the trend 
prediction programs. It should be noted that the link card is the first card 
of this package and is followed by the data cards required by the Main Pro- 
gram (GOODE). 

• Packet C consists of those cards necessary to run the History Plot Program. 

• Packet D consists of those cards necessary to run the Summing Program. 

• Packet E consists of those cards necessary to run the Probable Error 

Program. 

The following points should be noted concerning the job deck setup: 

• The "Reels" card is the first card in the deck. 

• Each packet consists of a link card (which acts as a trigger to SPACE to call 
the desired link into core storage from the library and to begin execution) 
and the program input data . For a complete description of the program input 
data the user is referred to the individual program descriptions. 

• The individual programs may be run in any sequence desired. It should be 
remembered, however, that the Summing Program (SUM) and the Probable 
Error Program (RSS) require the output of the Trend Prediction Programs. 
Thus, any of the following sequences of packets would be acceptable: 

A , B , C , E , D 
A,B,D,E,C 
A , B , E v D , C 

A , B , D , C , E 

A , B , E , C , D 

A , C , B , D , E 

A , C , B , E , D 


EXAMPLE 2 - Run the Trend Prediction Programs only. The sequence A, B will per- 
form this operation. 


Reference No. 54 a 

Issue Date 23 Dec 1965 * 
Supersedes New 

EXAMPLE 3 - Run the History Plot Program and the Trend Prediction Programs. The' 
sequence A, C, B will perform this operation. 


EXAMPLE 4 - Run the History Plot Program only. The input deck appears as: 

CARD COLUMNS 


1 8 72 

REELS * 

1122100 

1234100 


NOTE 

The "Reels” card contains no reels information since it is not 
necessary to mount the trending tapes; however, this card is 
still necessary. 


EXAMPLE 5 - Run the Summing Program only. The input deck will be as: 

CARD COLUMNS 

1 8 72 


REELS 

R 691 

R 692 

R 693 

R 84 * 

SUM 

3 3 

2 2 

* 



1122100 

2 12 

1965 

2 * 


1122105 

1. TREND 



END * 





1234100 

1 12 

1965 

2 * 


1234116 

846. 3 

7.8 



1234118 

4. TREND 



END * 





END OF SUMS 

* 



NOTE 

The "Reels" card contains the reels numbers of the tapes upon 
which the linear, nonlinear, Fourier, and logistic results have 
already been written. The link card (card No. 2 above) con- 
tains the integers 3 3 2 2 which represent the numbers of data 
files written on each of the four trending tapes. 



EXAMPLE 6 - Run the Probable Error Program only. 
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Issue Date 23 Dec 1965 
Supersedes New 


CARD COLUMNS 

1 8 — 72 


REELS 

R -1 R -2 

; B 

[ 693 * 


SUM 

22 * 




MIS ION 

105 12 

65 

* 


PARTS 

1122100 

L/V 

FACTOR 

.185 * 

PARTS 

1234100 

L/V 

FACTOR 

.810 * 

ENDCSE 

* 





END RSS 

* 




NOTE 

The "Reels" card contains two "scratch" reels (see SPACE 
Reference Manual! and reel 693 which contains the results of 
the Fourier model which has previously been run. The inte- 
ger 22 on the SUM card (card No. 2) is the number of data 
files on the Fourier tape. 

Note that the Trend Prediction Programs and the History Plot Program must have the 
Weight Data File (WDF) advance mounted. The symbolic address should be U07 with 
a file identifier FTC01. 

The following programs are not run under the control of SPACE but are run as separate 
jobs independent of SPACE: 

a. Update Program (66S) 

b. Decision Relevancy Program (64S) 

c. Cost Program (65S) 

The job deck setup and necessary control cards to run these programs are described 
in the individual program references. 
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CONTROL PROGRAM - 55S (GOODE) 

This program is the Control Program for the Trending System. It calls any or all of 
the four trending methods, the Output Routine, and the History Plot Routine, including 
any associated subroutines. The main job of this program is to set up the necessary 
instructions to process the functional system assemblies through the various trend 
prediction models. GOODE performs all of the input functions for the dependent pro- 
grams. The data cards are read in one by one, analyzed, and stored in core storage. 
They are then sorted into an array of ascending case numbers to avoid the expense of 
constant winding and rewinding of the data tapes to match the cases with the files . The 
cards are analyzed one by one, and the arguments are prepared for the desired trending 
method(s) . GOODE also retrieves the necessary trending information from the Weight 
Data File and stores this information into a working location in core. 

At this time the card image is scanned and the desired trend prediction programs are 
called and executed. At the completion of execution of each trend prediction program, 
control is returned to GOODE which determines if all the required prediction pro- 
grams have been called and executed. After all prediction programs for that card have 
been executed, the next card image is processed in the same manner. When all the 
input data has been processed, GOODE calls the Output Program which reads the four 
binary files generated by the prediction programs. At the completion of the Output Pro- 
gram, control is returned to SPACE. 

If the History Plot Routine is to be used, the cards are stored and sorted in the same 
manner as in trending. The trending methods, however, are bypassed and the His- 
tory Plot Program is called. The History Plot Program prepares its own output. 

When GOODE is through processing all of the case numbers, it simply returns control 
to SPACE directly, bypassing the Output Program. 
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GOODE accepts two basic types of input which must be in the following forms: 


INPUT FOR TREND PREDICTION ANALYSIS 



Program Indicator - Used Only on the 

Columns 

last card of the deck 

1-3 

/ Punch "END" 

Starting Case Number 

4-10 

| 7 digits (integer) 

Ending Case Number (Optional) 

12-18 

/ required. 

Programs or Trending Methods on which data is to be run 


a. Linear (56S) 

20 > 


b. Nonlinear (57S) 

22 


c. Logistic Model (59S) 

24 


• Option 1 

26 

k Indicated by an "X" 

' punched in the column. 

• Option 2 

27 


• Option 3 

28 


• Option 4 

29 


• Program Maturity Factor a 

31-34] 

) Number with decimal 
point punched in Col- 
umn 32. 

d. Fourier Model (58S) 

36 ] 

^ Indicated by an "X" 
punched in the column. 

• Weighting Factor a 

41-44] 

} Number with decimal 
point punched in Col- 
umn 42 . 

e. Normalization Factor 
• See NORM 12 (6/S) 

46 ] 

^ Integer 0, 1, 2, or 3 to 
indicate option. 


INPUT FOR HISTORY - PLOTS 


Program Indicator - Used Only on the 
last card of the deck 

Starting Case Number 

Ending Case Number (Optional) 


Columns 

1-3 } Punch "HIS” 

4-10 ^ 

12-18 J 


7 digits (Integer) 
required. 
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Example of Trend Data Deck 


CARD COLUMNS 


•4 

—12 

-20 — 

22- 

24— 

-26—27—28-29 

■31 

-36 41 46 

0611903 

0611909 

X 


X 

X 

0.85 

3 

0651426 



X 




1 

0651427 




X 

X 

1.00 

X 1.00 1 

0651436 


X 

X 

X 

X 

1.00 

3 

0651437 

0651449 

X 





2 


END 


Card 1 tells GOODE to trend all of the cases on theWDFfrom 0611903 through 0611909 
by the Linear Prediction Model and also by the Logistics Model with option 3, and 
using an alpha of 0.85 for E/C/A effects over the observed range (see Logistics, 59S). 
The final piece of information is a normalization option of 3 (see NORM 12) which is 
used for all trend programs selected on that card. 

The END card signifies the completion of the trend data deck. 

Once GOODE has processed the above cards, control is passed to the Output Routine 
which after its processing is completed passes control to SPACE. 

Example of History Plot Data Deck 

CARD COLUMNS 

1 4 12 

0611900 

0651000 

HIS 


The above data deck setup would produce History Plots for the modules 0611900 and 
0651000, and upon completion, control would be returned to SPACE. 
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*WDF is Weight Data File. 
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$ I ti F T C GOODE L I b T 9 R l F 

INTEGER KLLLo*wDCT 

COMMON /AcCcdb/ t-K ( 1 ) * wuC I * 1 O ( X 2 ) t PKOG 


COMMON 


1 

COMMON 
COMMC N 

1 

2 

3 

A 


/ SYS l th/ ufAPEb9RLELo(l3) » CU I kLS l 1 3 ) * K I L E d ( 1 3 ) 
PUS (13) 9 TRLPUS ( 13 ) * RWCN r ( 1 b ) * UiM I To U 5 
/PHLt/NFYLE(49300 ) *NFY(4) 

/PPju/ AC T UAL (10 0) 9 CALC (luo) 9 lST (lOu) 

LSQR (100) 9 MEAN (100) , MCONF (100) 

MSQR (100) 9 PCUNF (100) , SI (100) 

TIME (100) 9 wElC)Hl(luJ) 9 dJY (luo) 

N , NTOT 


LKo ( 13) 9 


9 CUM (12)9 
9 U W 2 (10^)9 

, S2 (10 0) 9 

9 fllLcly) 9 


COMMON /bLUCN/ (MCAbL (10) 9 T I I T L t_ ( 9 0 ) 9 AAA (13u) 9 uANuel l 1 0 ) 9 

1 TdLOCM 30U)9 rtoLuCk ( 3uu ) 9 i_b EUCk ( 3 ou ) 9 (1^)9 

2 CbEOCk ( 300 ) 9 AdLOCk ( 300 ) 9 odLUCM30o) 

COMMON / LOG IS/ kEtiP(4)9ALP 

COMMON /SIXb/LEEP( 2) 90 ALP 
COMMON /oT T /N21 9 DI 902 9 JlRUN 
COMMON / HHP / IOPT 9 JGPT , KEPT *»>»PATH 
DIMENSION C I NP ( 4000 ) »NI NP ( h000 ) 

DIMENSION AA2 (20) »T2(9) 9 T I^‘E2 ( 1 uO ) , m 2 ( 1 Jo ) 9 ES T 2 ( 1 0 o ) , CAuC2 ( loO ) 9 
1 AC T 2 ( 1 O -» ) 9 b2 ( 100) 

DIMENS ION L 1 ( 3 ) »CL I ST ( 5 ) 

LQJ I VALENCE ( C INP »N1 UP ) 

DATA E/0/ 


uATa TlLl/4nIlLT/*Li>»u»/3nLi>i^/»L)EAi>iN/lh / 


DATA C L I o T /3Fi3ob93H37S93rl^9^>93H^do93fiFiIo/ 
DATA CLlsP /3HOUTPT/ 

DATA ININE /9/ 

I NTEGER CASE NO 9 T I LT 


I B = C 

I F ( L .NE. 0 ) GO TO 412 


390 1 = 1 

400 K = 2 0 * ( 1-1 ) +1 

R LAl/ ( 3 9 4vj ou ) XP Y 2 9 U 1 imP { k ) 9 w 1 uP ( Pv+ 1 ) 9 C 1 UP ( k + 2 ) 9 C I uP ( k + 3 ) 9CiuP(k+4) 9 
1 C I NP ( k + 3 ) 9 C 1 uk l k + 6 ) 9 ^ I iMP ( n + 7 ) 9 C 1 uH ( n + o ) 9 C 1 UK ( is + 9 ) »c 1 J>*P ( n + 1 0 ) 9 
2CINP l k+1 1 ) ,CINP ( k+12 ) 9 C I NP( k+13 ) »C I NP ( K+14 ) 

4^00 F UR 1*1 A T ( a3 9 1 I 91X179 lXMl9lXAi*lXMlflX4-Ml9iXt-4«29 i Xm 1 IX^m 1 9 1 Xh 4 • ^ » 


1 - IX , I 1 ) 

IF ( X P Y 2 .Ul. C L I S T ( 3 ) ) oJ T u 4u0l 

I IV = I - 1 

DO 2b.' LO V = 1 * I IV 

KL = ( 20 * ( LOV-1 ) ) + 18 

NINP(KL) = 3. 

200 CONTINUE 
GO TO 401 

4001 IF (J PY2 t_No ) uO TO 4ol 

1 = 1 + 1 

GO TO 400 


40 1 I MAX =1-1 

READ (1) N21*El9D2 

CALL SORT ( C 1 N P 9 I M A X 9 2 ^ 9 1 ) 

E = 1 

403 READ (1) c A S c NO 9 N a 2 9 u 2 9 um l 9 ( A A 2 ( 1 ) 9 I = 1 » N A 2 ) * T 2 9 ( 1 I m t; ^ ( I ) 9 i = 1 9 u 2 ) 




1 , Cw2 I I) * I =1 »M2 ) . < EST2< I ) , I = 1 »N2) » ( CALC2 ( 1 ) > I =1 *N2 ) , I ACT2 l 1 > * I =1 ,i*k 
2 ) » ( B2 ( I ) ♦ I = 1 »N2 ) 



IF 

( CAStNo • oo • I I LT ) GO 

1 o 

406 



4u31 

IF ( 

CAbLNO • L T , NINPIL) ) 


Gu 

To 

4u 3 


IF ( 

CASLNO .LO, IMINP(L) ) 


uU 

TO 

404 


I F ( 

CAStNO «Lt, N 1 P ( L + 1 ) 

) 

GU 

To 

4u4 


GO 

TO 408 





404 

I B = 

Ib + 1 






IF ( 

IB • GT • 1 u ) GO TO 

408 





ncase ( ib ) =caseno 

NANUMI IB) =NA2 
NNUM ( I B ) =N2 
K 1 = 15*(IB-1) 

DO 4u5 12 = 1 * N A2 

K 1 =K 1 + 1 

4u5 A A A ( < 1 ) = AA2 ( 1 2 ) 
kl=9*( IB-1 ) 

DO 4u 6 12=1*9 

ki=k: +i 

4C6 TTITLE(K1)=T2(I2) 
kl=3e*( IB-1 ) 

DO 407 I 2 = 1 * N 2 
K 1 =K 1 + 1 

T BLOCK ( K 1 ) = T I ME 2(12) 

WBLOCK ( K1 ) =W2 ( I 2 ) 

EBLOCK ( K 1 ) = 1 8 T 2 I 12) 

CBLUCklkl )=CALC2( 12) 

ABLOCk I k 1 ) = AC T 2 ( 12) 

4>.7 GbLuCk ( kl ) =d2 ( 12 ) 

00 TO 403 

408 NTOT= I b 
k = L 

I F ( NTOT .01. 10 ) NTOT = lo 

DC 4081 J 9 = 1 * 5 

4081 L 1 I J 9 ) = 0 

IF (XFY2 .Me. CLloT(b)) GO To 4082 
■IF <MNP<k + 17) .ML. 0) Lllb) = 3 
GO TO 412 

4082 IF ( C 1 MP(k+2 ) .Mt. BLANk) e 1 ( 1 ) = 1 

I F ( C I MP ( k + 3 ) .ME. dLAMK ) L i ( 2 ) = 2 

kOPT = M I NP ( k + 1 4 ) 

IFl C I MP ( k + 4 ) ,bi«. gLANk ) ou To 410 

LI ( 3 ) =3 

00 4 o 9 J 9 = 1 * 4 
KEEP ( J9 ) =0 
kPO I NT = K + 4 + J9 

IFl C I NP ( KPOIMT ) ,i\b. bLANk ) nLEF|J9)=J9 

409 CONTINUE 
ALP=C I NP ( K+9 ) 

410 IFl CINP(k + 1o) ,lo. d l A M k ) GO To 412 

L 1 I 4 ) =4 

DO 411 J9= 1 *2 

LEEP ( J 9 ) = 0 
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KPO I NT = K + 1 0 + J9 

IF( Cl NP (K.POINT ) . NE. BLANK. ) LEEP ( J9 ) =J9 

All CONTINUE 

SALP=CINP(K+13) 

412 00 413 J9 = 1 » t> 

I F ( L 1 ( J9 ) «tu. 0 ) GU TO 413 

NPATH = L1( J9 ) 

ARG=CLIST (NPATH) 

LI ( J9) =0 

CALL SPACE ( ARG ) 

413 CONTINUE 

L = L + 20 
ILL = (L-ll/20 

I F ( IMAX .Nt. ILL ) GO TO 4031 
58 REWIND 1 
L = 0 

IF ( XP Y 2 .lU. CL I ST ( 5 ) ) Chi-L SPACl. 

CALL SPACL I CL 1 SP ) 

C.ND 
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MAXIMUM LIKELIHOOD LINEAR - 56S 


The program fits a straight line through a set of observations W. made at time t. by 
the method of maximum-likelihood estimation. In the underlying model, each obser- 
vation W. is considered an independent and normally distributed random variable having 
mean Y. and variance cr^ 2 . The mean is assumed to change linearly with time 

Y. = a + bt. 
i i 


and the variance of the i-th observation is assumed to be 


where; 

a 

b 

A. 

l 

C i 

E. 


r S 
1 

r S 

2 


< 7 . 

1 


- s 2 y 2 

1 


A. 2 + r 2 C 2 + r 2 E 2 

1 11 2 1 


= intercept of mean. 

= slope of mean. 

= fraction of W. which is measured. 
i 

= fraction of W. which is calculated. 
i 

= fraction of W. which is estimated. 

= relative standard deviation of the measured weight. 
= relative standard deviation of the calculated weight. 

= relative standard deviation of the estimated weight. 


It should be noted that individual observations W. are weighted depending on the weight 
breakdown and depending on the ratios r x and r 2 . The choice of these ratios is left to 
the user; in line with the model, they should be r 2 > r : > 1. The effect of the weighting 
is to consider observations with a greater amount of measured or calculated weight as 
more significant than others. r x and r 2 are functional system parameters, and at the 
present time, are part of the History data for each functional system. Suggested 
values are r x = 2, r 2 = 5. 

The maximum- likelihood method yields estimators a, b, and S of the parameters a, 
b, and S. The estimator of the assumed mean line 

✓S /N 

Y. = a + bt. 
l i 
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is the predicted weight or curve fit. The 95 percent confidence interval is also com- 
puted. The confidence interval is a function of Sand is based on small sample methods 
using Student's t distribution. 

Input to 56S consists of a case number and its associated weight data. This input is 
specified on a data card which is read by the Control Program 55S. For a detailed de- 
scription of this data card see program 55S. 

The output consists of a file of data as is described on the following page. 
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FILE ID 

FILE NO 

DATE 

PROG 

LRS 

V 

CASE NO 

MONTH 

YEAR 

N 

P 

NPROG 


TITLE X 


title 9 


TIME X 

time n+p 

WEIGHT x 

weight n+p 
EST~ ~ 


CALC X 


calc n+p 

ACTUAL^ 

actual n+p 

BUY X 


BUYn 

MEAN X 

^an n+p 

PCONF x 

pconf n+p 

MCONF 1 

mconf n+p 

UW2 X 



FILEID 

= label identifier 

FILENO 

* file number 

DATE 

' date file was created (MMDDYY) 

PROG 

= BCD name of program 

LRS 

= size of logical records within 
the file 

V 

= control word for SPACE 

CASENO 

= case number (integer) 

month 

= month in which first data point 
was observed (integer) 

YEAR 

= year of first observation (integer) 

N 

= number of observations (integer) 

P 

m number of predictions (integer) 

NPROG 

= code word 

TITLE 

= case title 

TIME 

= time points 

WEIGHT 

= normalized weights 

EST 

= estimated percentages 

CALC 

= calculated percentages 

ACTUAL 

= actual percentages 

BUY 

- nonrandom changes #1 (buyoffs) 

MEAN 

= mean trend line 

PCONF 

= +95% confidence limits 

MCONF 

= nonrandom changes #2 (outliers) 

UW2 

= observed weights 

PRED 

= prediction line 
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Write 

Data 

File 
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MtsFTL LINEAR LIST * R L E 
INTcGER Rti-Lb 


INTlGER * P » PmuN fH * PY cAK » Y LAR 


REAL L S u K ♦ M E A N * i v i C (J N F » M S vJ R 

COMMON /ACCESS/ HC ( 10u ) ,v*uCl * I 0 l 12) *PROO 

COMMON / S Y b T c. i v l / NTAPlo,REEL01iS) ,CNTRLS115 ) *FIlE 6( lb) , LRu( lb) * 

1 PUS ( 1 5 ) * T RLHQS ( 1 5 l * RWCN ( ( 1 b ) *ON 1 lo> ( 15 ) 

COMMON / P F I L E / NF Y L t ( A , 3 0 0 ) , NF Y ( A ) 

COMMON / P POu / ACTUAL(IOC) * CALC (ICO) , lST (100) * COM (12) 

1 LSQR (ICC) * MLaN (100) * MCONf- (100) 9 J'w2 ( 1 0 o ) 

2 MSQR (100) * PLUNK (100) , SI (100) * 62 (100) 

3 T I Nl (10u) * WulonTllOU) * oOY l lou) * 11 111 19) 

A N , NTOT 

DIMENSION OTUDNT ( 31 ) 


lQUI VALlNCL 

2 

3 

4 

DATA STUDNT 

1 

2 

3 


( COM ( 1 ) 9 PMONT h ) * l CUH (2 )»PYEAk)* ( Co<-i ( 3 ) 9 riUJNtl H ) 9 

( C0M( 4 ) * YEAR ) » (C0M(5)*R1) * (Cum(6)*K2) * 

( COM l 7 ) * ASUbP ) , ( CuM 8 ) tiTbUbP ) * ICunl 9) »CjolP) » 

( COM ( 10 ) * NSUDP ) 

/12*7G6*4.303»3*162,2.776>2.b7l *2*447 *2.365 *l.3o6* 
2*262 *2.226*2.l 01 *2 *179*2 •16J*2*l i +b*2*l3l * ^ • 1 2 <j * 
2* 110*2*101 *2*093,2* C86,2*U6o,2.074 *2*069*2*064* 
2*060*2 *0b6* 2*062*2*048*2 *046 *2 *042 *1*960/ 


DATA NPROG / 3HL I N / 

DO 1300 11=1, NTOT 

CALL GETDAT ( I PSWT * I 1 *CASlNu ) 

BPRIM = 0*0 

CPRIM = 0*0 

EPRIM = 0.0 

FPRIM = 0,0 

DO K5G I =1 *N 

BPRIM = BPRIM + TIMC( I ) 

CPRIM = CPRIM + T I ME ( I ) **2 
EPRIM = EPRIM + WEIGHT* I ) 

1 050 FPRIM = FPRIM + wEIGHT(l) * TIME*!) 

DPR I M = FLuAT(N) * CPRIM - dPR1M*#2 
ATWlsT = ( c Pk I M*C PR I n - oPK 1 im*LPK I i v I ) /uPk I M 

bTwioT = ( h LuaT { N ) *F PR i i v . - u Pi\ i 1 n )/ DP* I ft 


DO 10 57 I = 1 * N 

LSQRlI) = ATWIST 4 BT w I ST * V 1 Ml ( I ) 

1 057 MSOR(I) = L Suk ( I ) * * 7 * ( AC I u AL ( I ) ** 2 + Kl**2 * CAlc(I)**2 + 
1 R2**2 * ES T ( I ) **2 ) 


ITERAT = 3 
1062 A = 0.0 
5 = 0.0 
C = 0*0 
E = 0.0 
F = 0.0 
DO 1074 1=1, N 
A = A + 1.0 / MSQR ( I ) 

B = B + T I ME ( I ) / MSQR ( I ) 

C = C + T 1 ME ( I ) ** 2 / MSQR ( I ) 
E = E + WEIGHT ( I ) / MSQR ( I ) 
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1074 F = F + WEIGHT(I) * T I ME ( I ) / MSQR(I) 

D = A*C - 3**2 
AHAT = (E*C - F*B) / D 
BHAT = ( A*F - B* E ) / 0 
DO 1102 1=1. N 

1102 MEAN I I ) = AHAT + bHAT*T I ME ( I ) 

HERAT = HERAT - 1 
IF (ITERAT .EQ. 0) GO TO 1114 
DO 1 1 1 1 I = 1 * N 

1111 wSGR(l) = MEAN ( I ) ** 2 * ( ACTUAL ( 1 ) **2 + Kl**2 * CAlC(I)**2 + 

1 R2**2 * E3T ( I ) **2 ) 

GO TO 1062 
1114 NPLUS1 = N + 1 

NPLL)SP = 1 2 * ( P YEAR - YEAR ) + PMONTH - MONTH +1 
K.8 5 = T I ME ( N ) 

P = NPL USP-K 8 5 
NPLUSP=N+P 

I F ( IPS'.vT . uT. 6 ) GO To 112 5 
DO 1124 K = NPLL!51 .NPLUSP 
EST ( K ) = EoT ( N) 

CALC(K) = CALC(N) 

1124 ACTLAL(k) = ACT'JAL(N) 

GO TO 1164 

112 5 I F ( NSUBP .Nl. - I GO TO 1143 
DO 1140 K=NPLUS1 .NPLUSP 
EST(K) = CSUbP 
CALC(K) = 3SU3P 
1140 ACTUAL (K.) = AiUBP 

GO TO 1164 

1143 lO 1146 k-NPLUSl .NPLUSP 

LsT(n) = ICoubP - Li! (i'll I * FLOAT (n-N) / rLuAllP) + Lull'.) 

CALC(k) = ( d^udP - CALC(N)) * r LuAT I K-i'i I / FLuAl(P) + CALL (.4) 

114b ACTuAL(is) = ( AGubP-AC 1 uAL ( w ) ) * F LuA T ( K — In ) / FluAT(I') + hCIuAlIkI 
1164 DO’ 116 7 r-Hi.PLJSl * NPLUSP 

T 1 ME (• K. ) = TI.-IE(K-l) + l.C 

LSCRlk) = ATwIGT + BTivIST * T1MEIK.) 

1167 ME' A NIK) = An<-»T + lHAT * TlME(iC) 

SUM = 0.0 
DC 117 3 I = 1 » N 

1173 SUM - G^Mi + l.vEIGHT(l) - i-ilmN ( 1 ) ) ** 2 /MiuK(l) 

RhO = iuRT ( l.w/FLUAT ( N-2 ) *ouM) 

K = N - 2 

IF () .CT. 31) K = 31 
00 1215 1=1. NPLUSP 

ill I) = RHO * MEAN(l) * bvjK I l aUuAL ( I ) **2 + C A L L ( l ) * * 2 

1 + EST ( I) **2 ) 

ALPHA = ( C - 3 * T I ME ( I ) ) / D 

ALPHA2 = ALPHA** 2 

BETA = (A * TIME! I ) -b) / 0 

BETA2 = 3 E T A**2 

ALPHAA = ALPHA2 * A 

BETAC = b E T A 2 * C 

ALbtb2 = 2.0 * ALPHA * BL T A * a 



u) ro 
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S2U) = RHO * SQRTIALPHAA + BuTAC + ALBLb2 ) 

DEMO = BTUDNTlK.) * SURT (bill) **2 + S2<I)**2) 

12 15 PCONF(I) = f-.t AN ( I ) + DENO 
NFY(l) = NFY(l) + 1 
NF 1 = NFYf 1 ) 

NF11 = ISIGN(NF1,REELS(1) ) 

NFILE = RCELS ( 1 1*1000 + NF11 
NFYLE( 1 .NF1 1 = CA5ENO 
DIFRC = UVm2 ( N ) - MEAN(N) 

DO 1216 IW=NPLUS1 .NPLUSP 
WEIGHT! IW) = MEAN ( IW) 

1216 UW21IW) = wtluHTUW) + DIFRC 
I D ( 7 ) =CAScNG 
I D ( 8 ) = MONTH 
I D ( 9 ) = YEAR 
I D ( 1 ( ) =N 
I D ( 1 1 ) =P 
10(12) =NPROG 
CALL ABOUT l(NFILE.l) 

CALL ABOUT2(NFILE»TITlE»9) 

CALL AcOUr2(NFlLE>T li*it*NPL>-»oP) 

CALL AdUuT 2 (NFILl.» WEIGHT ♦ NPLUUP ) 

CALL ABOUT 2 (Nr I LE * cbT » NPLUoP ) 

CALL AbOUT2 (nE I LE . CALC . NPLUBP ) 

CALL AcOU T 2 l NF I LE . AC 1 UAL .NPLUiP ) 

CALL AuCUT2(NFILE»bUY,N) 

CALL AuOU T 2 ( NF I LE » MEAN * NPLUBP ) 

CALL AbOUT 2 INF I LE . PCONF .NPL'oSP 1 
CALL AbOU T 2 ( NF ILL* MCONF > NPLuSP 1 
17 CALL ALLOT 2 ( NF ILL* U«v2* NPLUSP) 

GO CONTINUE 
CALL GOODE 
END 
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MAXIMUM LIKELIHOOD NONLINEAR - 57S 

The data available for curve fitting consists of a set of observations W. made at time 
t.. The expected value of W. is assumed to be an exponential function of time, 

-ct 

E{W.} = Y. = a - be c>0 

where a, b, c are parameters to be determined. So that the curve will approach the 
value a asymptotically, c has been restricted to positive values. A range of c values 
has been established, and for each c in the range, a curve of the above form is fit to 
the observations W. by the method of maximum-likelihood estimation. For each curve 

l 

so fitted, values of a and b are determined, and the natural logarithm L of the likeli- 
hood function is computed. When all c values in the range have been exhausted, the 
maximum L is determined through inspection, and the corresponding values of a, b, 
c are the desired parameters. 

The analysis and further assumptions used in the model were identical to those in the 
linear model described in the previous section. The maximum-likelihood method 
yields estimators a, b, S of the parameters a, b, S while c is determined from empir- 
ical considerations. The estimator of the assumed mean line 

Y. = a - be 
i 

is the predicted weight or curve fit. The 95 percent confidence interval is also com- 
puted. The confidence interval is a function of S and is based on small sample methods 
using Student's t distribution. 

The range of c values established within the program limits c to the following values: 

c = k(.001) k = 1, 2, ..., 2000 

Thus the greatest value that c can attain is the value c = 2, while the minimum value 
of c is the value c = .001. When c = 2, the exponential very quickly approaches the 
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asymptote a. For example, if c = 2, t = 5 then 

-ct. 

Y. = a - be 1 all i 

Y s = a - b(. 000045) i = 5 

Y. ~ a i > 5 

For any value of c > 2, this same phenomenon occurs even more quickly and since the 
curve is essentially the constant Y = a, no loss will result by restricting c < 2 . Like- 
wise, when c = . 001, the curve resembles a straight line with a steep slope and will 
exhibit no exponential trend until the value of t becomes quite large. For example if 
c = . 001, then the curve will not exhibit the same tendencies as that shown in the pre- 
ceding example until t - 10, 000 months. For 0 < c < . 001 this phenomenon is even 
more pronounced. Thus, it does not seem unreasonable to restrict c to the abovevalues. 

Input to 57 S consists of a case number and its associated weight data. This input is 
specified on a data card which is read by the Control Program - 55S. For a detailed 
description of this data card see program 55S. Output consists of a file of data as is 
described on the following page. 


I 
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FILE ID 

FILENO 

DATE 

PROG 

LRS 

V 

CASE NO 

MONTH 

YEAR 

N 

P 

NPROG 


TITLE 


TITLE 9 


TIME : 


TIME N+ p 


WEIGHTj^ 


weight n+p 


EST 1 


CALC 1 


calc n+p 


ACTUAL 1 


actual n+p 


BUY 1 


BUY 


N 


MEAN : 


i^an n+p 

PCONF 1 


pconf n+p 

MCONF 1 

MCONF^p 

UW2j 

u'w 2 n 

PRED 1 

PRED p 


FILEID = label identifier 
FILENO - file number 

DATE = date file was created (MMDDYY) 

PROG = BCD name of program 

LRS = size of logical records within 
the file 


V 

CASENO 

MONTH 

YEAR 

N 

P 

NPROG 

TITLE 

TIME 

WEIGHT 

EST 

CALC 

ACTUAL 

BUY 

MEAN 

PCONF 

MCONF 

UW2 

PRED 


control word for SPACE 

case number (integer) 

month in which first data point 
was observed (integer) 

year of first observation (integer) 

number of observations (integer) 

number of predictions (integer) 

code word 

case title 

time points 

normalized weights 

estimated percentages 

calculated percentages 

actual percentages 

nonrandom changes #1 (buy offs) 

mean trend line 

+95% confidence limits 

nonrandom changes #2 (outliers) 

observed weights 

prediction line 




Reference No. 

Issue Date 

Supersedes 
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$ I BFTC NONLNR LIST * REF 
INTEGER REELS 

INTtGER CAS tNO » P * PMON TH * P Y L AR * YEAR 
COMMON / ACCtSS/ HC ( 1 Ol ) , WDC I » I 0 ( 1 2 ) . PROG 

COMMON /SYSTlM/ NT APES » Rt ELS ( 1 5 ) » CNTRLS < 1 b ) > F I LLo ( 1 b ) ,LRS ( IS) . 

1 PUS( 1 b ) » T RLPOs (IS)* R«CN 1 ( 1 b ) ♦ cm I To ( IS) 

COMMON / PPUG/ At 100 ) »ti( IOC ) iU ( 100 ) .COM 112 ) *LSOKl J.0U ) , YdAK ( lou ) * 

1 MCoNF ( 1 wMj ) * oW2 ( 1 OJ ) * MbuR ( 1 uu ) * PCLi'iF ( 100 ) * o i l i ) » 

2 b2llGu)*T(loO)*Y(lUU).DUY(luu)»IIlLM9)*N»<*lL>l 
COMMON /PFILE/ NFYLL ( 4 t 3 Uu ) >NF Y ( 4 ) 


DIMENSION 
EGU I VALLNC E 

2 

3 

4 

DATA 5TDDNT 

1 

2 

3 


Li v i( 1 j 0 ) * Y T E S T ( 1^0) » ° UM ( 1 o ) > D L V ( 1 0 0 ) .MOUNT ( 31 ) 

( COM ( 1 ) * PMON T H ) > ( COM ( 2 ) * P Y EAR ) . ( COM 3 ) »Moim 1 H ) . 

( COM ( A ) .YEAR ) * (C0M(5)*R1) . lCUiM6)»K2) > 

( COM ( 7) > ASUbP ) . ( COM ( 8 ) *boUBP) . (CUM 9) .CbuoP) * 

(CCM(IO) .NSUBP) 

/12*7J6 *4.3j 3»3« 182*2* 776 >2 *571 *2.447 *2*365»2.3<J6 * 
2.262*2.228.2.2Ul.2.179.2.16U,2.145,2.13i*2.12o* 
2.110*2.101»4.093*2.0bt>.2.ub0*2*U74,^.069.2.<j64. 
2«0 6u»2*U56*A*0b2f2*J 4 b * 2 .045.2.^42 » 1 • 9 b vJ / 


DATA PI /0202622u77325/ 

JA T A NPR0G/3HEXP/ 

CALL TRAPOK 

DO 1 3 C 0 I 1=1*NT0T 

CALL GETUAT ( IPSWT. II .CASENO) 

NPLUS1 = N +1 

NPLUSP = 12* ( PYEAR - YEAR ) + PMONTh - MONTH + 1 


K85 = ‘ ( N ) 

P=NPLUSP-K85 

NPLUSP=N+P 

DO 45u I = NPL JS 1 > NPLUSP 
450 T( I) =T ( 1-1 ) + 1. 

H = 0 • 

T SQ= o • 
b - 0 • 

Y T = D . 

DO 5 00 I = 1 » N 

h = H + T { I ) 

T S G = T SO + T ( I ) **2 
S = S + Y ( I ) 

500 Y T = Y T + Y { I ) * T ( I ) 

HALF= ( TOG * o - H * Y T ) / ( F L u A T ( N ) * T oG - h**2) 

HSET = ( F : L ja T ( tM ) * YT - H * o ) / ( F lU A T ( im ) * f ocj - h**2) 
DO 5 ^ v- J = 1 * N 

£00 Y5AR ( J } =NAU" + ribL T * T t J ) 

DE LC = 1 • 

C = * 1 

DO 14C0 12=1.3 

DELCsUELC * .1 
I F ( C .LG. C.) C = D£LC 
DO HOC J 1 = 1 *20 
DO 810 K=1 ,5 
0 N E = 0 • 
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TWO=C . 

FOR = 0 . 

F I V = 0 • 

SIX=G. 

DO 7 00 M = 1 » N 

SGM(M)=YBAHMM)**2 * ( A ( M) **2 + R 1 ** 2*B I w) **2 + l<2**2 * D(M)**2) 
ONE=ONE + 1 • / SQM ( Vi ) 

TWO=TVvO - EXP ( -C * TIM) ) / SQM ( M ) 

FOR=FOR - EXPl-2. * C * T(M))/3QM(M) 

F I V = F I V + Y ( M ) / OQM ( M ) 

700 S I X = 5 I X + Y ( M ) * EXPt-C * TIM)) /Son ( M ) 
r RE = -TWO 

AHAT = ( FOR * Fiv - TWO * SIX)/(urat * FuR - TwO * Trl ) 

BHA T = l ONE * BIX - TRt * FIV)/(uinl * FuR - iwo * I KE ) 

DC 800 M= 1 * N 

300 YBAK(M)=AHAT - bHAT * EXPI-C * TIM)) 
flC CONTINUE 
S S Q = 0 • 

EMMS = 0 • 

DO 9CC I I =1 »N 

EM ( I I ) = SQR T ( SQM ( II)) 

EMMS = EMMS + A LOG ( EM ( I I ) ) 

90 C SSQ=bSG + (Y(ll) - YdAR ( I I ) ) **2/SQM < I I ) 

SSQ=S5Q/FlOAT ( N-2 ) 

lLBaR= — r L 0 m T ( I'm ) * AluG{2.* PI ) / 2 • - F L ^ A T ( -m ) * AlsjG ( Sou ) / 2 • “t-Mi'io 
IF(J1 .ECU 1) GO TO 1050 
IFttLBAR .LT. LlMAX) GO TO 106u 
1 C 5 0 C T ES T = C 

ATEST = AH A T 
BT ES T = BHA T 
ELMAX=ELBAR 
SAV 1 = ONE 
S AV 3 = T RE 
-S A. V 4 = F C R 
S A V S = S S 0 
DO 1 05 5 N 1 = 1 t N 
1055 YTEST ( M ) =YumR ( M ) 

I u 6 0 v- = C + OElC 

II CO CONTINUE 

DC i: 10 Ml=l »N 
1110 Y3AR (Ml ) =YTLST (Ml ) 

C=CTEST - DELC 

1400 continue 

1 A 1 0 DO 1 5 C 0 KK. = 1 * i\ P L U S P 

1500 Y6AK ( Rk ) I LOT - dTljT * EXP(-CTlST * T ( Ks ) ) 

K = N - 2 

I F ( K .CT. 31) K = 3 1 
DO 151^ Ll = NPLJS1»j\PLuSP 

A ( L L ) = (Abb-op * A ( i\ ) ) * FuuAT (lL-N)/FL^aT (F) + A(H) 

b(LL) = (dSudP - ( p Ni ) ) * T l u A T ( L L - iM ) / r L o A T ( P ) + o(N) 

L’(LL) = (Uuur' - D(iU) * FLw; I ( LL-N )/FLuA I (P ) + j ( w } 

0 UM t L L ) = Y d A rc ( L L ) * * 2 * ( A ( L L ) * * £ + D ( l l ) » * c + 

D E N GM = S A V l * ( - S A V 4 ) - SAV3**2 


U ( LL ) £ ) 
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ALPHA = ( -SAV A -<SAV3*tXP(-CTtST* TILL))))/ D.tNOM 

BE T A = ( SAV 1 * tXP(-CTEST * TILL))- S AV3 ) / DENQM 

ALPHA2 = ALPHA ** 2 

BETA2 = BETA ** 2 

ALPHAA = ALPHA2 * SAV1 

BETAD = BET A2 * l-SAVA) 

ALBEC2 = 2 • * ALPHA * BETA * SAV3 

DEV ( LL ) = SURT ( uAVb) * SURI ( aUM ( LL ) + ALPHAA + BETAU + A LotL2 ) 

1510 PCONF < LL ) =YbAR ( LL ) + STUDN I ( K ) * DEV(LL) 

NFY ( 2 ) = NFY ( 2 ) + 1 
NF2 = NFY ( 2 ) 

NF22=ISIGN(NF2,REELS(2) ) 

NFILI =REELS(2)*1000 + NF22 
NFYLE ( 2 »NF2 ) = CASENO 
DIFRC = DW2(N) - YBAR(N) 

DO 666 MOM = NPLUS 1 » NP LUS P 
Y ( MOM ) = Y BAR (MOM) 

666 UW2 < MOM ) = Y ( MOM ) + DIFRC 
I D ( 7 ) =CASENO 
I D ( 8 5 = MONTH 
ID< 9 ) = YEAR 
ID ( 10 ) =N 
I D ( 1 1 ) =P 
I D ( 1 2 ) =NPROG 
CALL ABOUT 1 ( NF I LE * 1 ) 

CALL AB0UT2<NFILE.TITLE,9 ) 

CALL ABOUT 2 (NF ILE* T,NPLUSP ) 

CALL ABOUT 2 INFILL, Y*NPLUbP) 

CALL ABOUT2(NFILE*D,NPLUSP) 

CALL ABOUT2 l NF I LE » B *NPLUbP ) 

CALL ABUUT2 INFILE, A.NPLUSP) 

CALL ABOUT2(NFILE,BUY,N) 

CALL ABOJT2(NFILE,YBAR,NPluuP) 

call abouT2 inf i le .pconf .nplusp j 

CALL A30UT 2 ( NF I LE »MCONF »NPLoSP ) 

1217 CALL ABOUT 2 (NFILE. UW2 * NPLUSP) 

1300 CONTINUE 

CALL GOODE 
END 
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ADAPTIVE (FOURIER1 EXPONENTIAL - 58S 

The program accepts a set of weights W. observed at time t. and predicts the trend of 
the data at a future date. The model does not assume that the observations are dis- 
persed about a specified mean-value function (as do the other trend prediction pro- 
grams). Instead, it is adaptive, meaning that it senses the latest tendencies of the 
trend and projects them into the prediction range. To get away from the mean value 
function, one must look at the weight increment from the latest observation to the next 
one. This increment is considered a random variable. 


The model chosen was one which expressed the same time-dependent behavior desired 
in all the models, but which was not autoregressive in its structure. The model is, 


-at 

W. +1 - W. = a + be + R. 


where a is the mean increment and R. is a random residual of zero mean. When ob- 
servations are equally spaced, namely t. +1 = t. + At, the above equation becomes 


-at. 


w i +1 


= (W x - C) + ia 


+ ce 


R. 

J 


j = i 


where 


... a At -i 

c = b ( 1 - e ) 


and a, c, a are parameters to be estimated. It was decided to separate the nonlinear 
part of the above equation by a Fourier analysis. Hence the name Fourier model. 


Input to 58S consists of a case number, its associated weight data, and a weighting 
coefficient p # defined by p° 1 = k, Osks 1. The parameter k must be input to the 
program and is specified in columns 41-44 of the instruction card which is read by the 
Control Program 55S. This weighting coefficient allows the user the opportunity to 
weight later observations more heavily than earlier observations. If equal weighting 
is desired, use p = k = 1. 

Output consists of a file of data as is described on the following page. 
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FILE ID 

FILE NO 

DATE 

PROG 

LRS 

V 

CASE NO 

MONTH 

YEAR 

N 

P 

NPROG 

TITLE. 


A N+P 


CALC. 


CALC. 


ACTUAL. 


actual n+p 


BUY. 


BUY V 


PCONF. 


MCONF, 


FILEID 

FILENO 

DATE 

PROG 

LRS 

V 

CASENO 

MONTH 

YEAR 

N 

P 

NPROG 

TITLE 

TIME 

WEIGHT 

EST 

CALC 

ACTUAL 

BUY 

MEAN 

PCONF 

MCONF 

UW2 

PRED 


label identifier 
file number 

date file was created (MMDDYY) 

BCD name of program 

size of logical records within 
the file 

control word for SPACE 

case number (integer) 

month in which first data point 
was observed (integer) 

year of first observation (integer) 

number of observations (integer) 

number of predictions (integer) 

code word 

case title 

time points 

normalized weights 

estimated percentages 

calculated percentages 

actual percentages 

nonrandom changes #1 (buyoffs) 

mean trend line 

+95% confidence limits 

nonrandom changes #2 (outliers) 

observed weights 

prediction line 
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Reference No 

Issue Date 

Supersedes 


58.3 
23 Dec 196? 
13 August 1965 


SIBFTC FOURNR LIST, REF 
INTEGER REELS 

INTtGER CASlNO.P. PMONTH .PYEAR.YEAR 
REAL MEAN.MCONF 


COMMON 
COMMC N 

1 

COMMON 

COMMON 


/ACCESS/ HC< 100) ,WDCT , ID (12) ,PROG 

/SYSTEM/ NT APES » REEL* ( 15 ) .CNTRLS (15), FILES (15) ,LRS< 15 ) » 
POS( 15) ,TRLPOS( 15) » RWCN T < 1 5 ) * UN I TS { 15) 

/PFILE/ NFYLE(4,300) ,NFY(4) 


/ PPOG / AC T UAL ( 1 00 ) » CALC (100) , tST (100) 

1 LSQR (100) , MEAN (100) , MCONF (100) 

2 MSQR (100) , PCUNF (100) , SI 1100) 

3 TIME (100) , WEIGHT ( 100) , fluY (lOv) 

4 N , NTOT 
COMMON /SIXS/LEEP( 2 ) »SALP 


DIMENSION 02(5,13) , AS(5) 

1 F4 ( 1 00 ) , DIF(IOO) 

2 A ( 5 ) , X(100) 

3 C ( 13 ) , Z(100) 

DATA NPR0G/3HF0R/ 

EQUIVALENCE ( COM ( 1 ), PMONTH ) , 

2 ( COM ( 4 ) .YEAR) , 

3 ( COM ( 7 ) , ASUBP ) , 

4 ( COM ( 10 ) , NSUBP ) 
DATA PIl/0202622077325/ 

DO 71 J=1 ,13 
EJ = J 

22= .7 - (EJ-l. )* .05 
71 AL ( J ) =-ALOG ( 22 ) 

DO 10 1=1,13 
DO 11 K = 1 ,5 
EK = K 


Fit 100) 
U(100) 
0(5) 

Y ( 1 00 ) 


F 2 ( 100) 
UN( 100 ) 
AL. C 13 ) 


COM (12) 
UW2 (100) 
S2 (lOu) 
T I 111 l 9 ) 


, F31100), 

, oK-ALP ( 5 ) , 

, E ( 13 ) , 


, B K ( 5 » 1 3 ) , AM (13) 


l COM ( 2 ) »PY EAR ) « 
( COM ( 5 ) , R 1 ) , 
( COM ( 8 ) »BSUBP ) , 


(C0M( 3) .MONTH) , 
( COM ( 6 ) » R2 ) , 
l COM( 9 ) »CiObP ) , 


PIEK=P I E*EK 

Pi = 1./ ( 1. + ( PIEK/AL( I ) 1**2 ) 

P2 = ( (-1 . ) **R)*EXP( -AL ( I ) !-l . 

BK ( K. » I ) = (2»/PIEK)*Pl*P2 
11 CONTINUE 
10 CONTINUE 

DO lo2 1=1,13 
DO 102 K = 1 ,5 

102 Q2 ( < » I ) = BK(K,I )/BK(l,I ) 

DO 103 1=1.5 

1 03 AS( I ) =Q2( I .13) 

DO 1300 11=1. NTOT 

CALL GETDAT ( IPSWT » II .CASENO) 

6 I F ( r .LT. 8 ) GO TO 1300 

NPLUSP=12*( P YEAR- YEAR ) +PMONT H-MONTH+1 


60 NPLUS1=N+1 
K85 = T I ME ( N ) 

P = NPLUSP-K 8 5 
NPLUSP=N+P 


L = N-1 
V=L 
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RHO=SALP 
DO 117 1=1. N 

117 U( I j = WEIGHT ( I ) 

122 CONTINUE 

DO A 1=1,5 
A < I 1=0. 

A CONTINUE 

DO 41 1 = 1, N 

XI I )= U( I )-( ( FLOAT (N- 1 ) )/V)*U(l) -( (FLOAT! I - 1 ) )/< FLOAT < N~l ) ) )*U( im) 
41 CONTINUE 

DO 61 <=1,5 
E< = < 

DO 5 1=2, L 

ARG= (EK*PlE*FLOAT( 1-1 ) )/V 
A ( < ) = A ( < ) + X ( I ) *S I N ( ARG ) 

5 CONTINUE 

A ( < ) = A( < ) * ( 2./V) 

61 CONTINUE 

d=u( r.)-u< 1 1 

QO= A ( 1 ) /D 
DO 7 1=1,5 

7 Q ( I ) = A ( I ) / A ( 1 ) 

DO 104 1=1,5 

I F ( Q ( I ) .GE. 0. ) GO TO 1030 

A( I ) =0. 

GO TO 104 

1030 I F ( 0(1) .GT. AS ( I ) ) A l I ) = AS(I)»A(1) 

104 CONTINUE 

I F ( ( A ( 1 ) / J ) ,Gt ♦ .05 ) GO 10 1682 

2224 CONTINUE 

DO 107 1=1, N 

107 MEAN ( 1 ) =U ( 1 ) + D*( FLOAT ( 1-1 ) /FLOAT < N-l ) ) 

CPRIME = 0. 

GO TO 18 

2227 A L P = A L ( < ) /V 
GO TO 160 
1882' CONT INUE 

DO 8 1 = 1 ,N 

E<= I -1 

F 1 ( 1 ) = A ( 1 ) * S I N ( P I E* ( E</ V ) ) 

F2(I)=F1(I)+ A ( 2 ) *S I N ( 2 » *P I E* < Ek/V ) ) 

F 3 ( I ) =F 2 ( I ) + A ( 3 ) s S I N ( 3 • *P l E* I Ek/ V ) ) 

F4(I)=F3(I)+ A ( 4 ) * S I N ( 4.*PIE*(Ek/V) ) 

8 CONTINUE 
DO 9 I = 1 , N 

MEAN ( I ) =U ( 1 ) + D*( FLOAT ( I -1 l/FLOAT ( N-l ) ) + F 4 ( I ) 

9 CONTINUE 

DO 1117 1=1,13 

1117 C ( I ) = ( — D )'/ ( l.-EXP(-AL( I ) ) ) 

LP ASS=0 

I F ( D .LT. 0. .AND. All) .LT. 0. ) GO TO 2222 

DO no 1 = 1,13 

no c ( i > = <-.8 *u)/(i.-exp(-al( i m 
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LPASS= 1 
2222 CONT I NUE 

00 111 1=1.13 

AONE =0 • 

ATW0=0. 

DO 112 K = 1 » 5 

AON E = AONE + ( b< ( < > I ) *C ( I ) ) **2 
152 A T WO = A T WO + 1 d< ( < . I ) *C ( I ) *« l < ) ) 

E ( I ) = AONE - 2 ,*ATWO 
111 CONTINUE 

EMI N=10.E+10 
DO 1 A K= 1 » 1 3 

I F ( EMIN .LT. E(K> ) GO TO 14 

1 = K 

EM I N = E ( K ] 

14 CONTINUE 

ALP = AL ( I ) /V 
< = 1 

I F ( LPASS .EQ. 1 1 GO TO 2228 

F AC T = ,8*U(1) 

1 F ( C ( 1 3 ) .OT. FACT) GO 10 2224 

DO 2225 <=1.13 

I F ( C(<) . LL . F AC f ) GO To, 2226 

22 25 CONT INUE 

2226 IF ( I .LT . < ) GO TO 2227 

2228 I F ( I • EQ • < .OR. I .EQ. 13 ) GO TO 160 

DO 147 K = 1 .13 
147 AM(K)=AL(K)/V 

ANUM= ( E I I)-E ( 1-1 1 )* t AM 1 + 1 ) -AM ( 1-1 ) ) **2 
1 - ( E ( I + 1 ) -E ( I - 1 ) ) * ( AM ( I ) - A M ( I - 1 > >**2 - 

DNUM. (AMI I ) — Aim (l-l))*(E(I+l>-t(I-l>) 

1 - ( AM I + 1 )-AM( I -1 ) >* ( E ( I ) -l ( 1-1 ) ) 

ALP = -.5M AiMUi'i/ DiNuM ) + AM ( I -1 ) 

160 ANUM=0. 

DNUM=0 . 

PLA=ALP*V 
DO 17 <=1.3 

E< = < 

P I E< = P I E* E< 

b < A L P ( < ) = ( 2 • / P I E < ) * ( l./(l.+ (PIE</PLA)**2) ) * ( ( - 1 . > **<*lXH ( -Hi_a ) 

1 -1 . ) 

ANUM=ANUM + d<ALP ( < ) *A ( < ) 

DNUM=DNUM + B<ALP(<)**2 

17 CONTINUE 

C PR I M E = ANoM/DNUM 

18 DO 19 1=1 » N 

19 U I )=U( I ) -CPKIi'it*LXP ( -ALP*F loaI (1-1)) 

DO 191 I = 2 , N 

191 Y ( I ) =Z ( I ) -Z ( I -1 ) 

RH0= ( ALOG ( RHO) ) /V 
RH0= EXP(RHO) 

ANUM = 0 . 

DNUM = 0 . 
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DO 20 1=2. N 

ANUM= ANUM + Y ( I I *RHO**< N- 1 ) 

20 DNUM=DNUM + RHO**(N-I> 

AHATt- ANUM/oNUM 

sigma=o. 

DO 21 I = 2 » N 

21 5 I GMA = S 1 GMA + RHO**(N-I)*(Y( D-AHAT )*«2 

S I GMA = SORT ( SIOMA/FLOAT ( fM-2 ) ) 

BE T A = ( Z ( N ) +AHAT ) / Z ( N ) 

L SET = 0 

DO 22 K=NPLUS1 .NPLUSP 

TIME ( K ) =T I M t ( K-l ) +1. 

NT ( K )=NT(K-1 1 + 1 

I F ( AHAT .Ll. o. ) GO TO 6627 

■ k it AN ( M -l l ;\l ) +r uoAT ( ix-im ) *AH«T + GPk I i v il*EXP ( -ALP*FluA I ( k~l ) ) 
GO TO 6529 

6527 I F t LSET .EG. 1 ) GO TO 6626 

AMUTh=BETA**(K-N) 

I F ( AMUTH ,uT, ( . J 0 0 0 0 1 ) ) GO TO 6528 

LSET = 1 
AMUTH = 0 • 

6528 MEAN (K)= AMUTH * Z(N)+CPRIMt*EXP(-ALP*FLoAT ( K. — l ) ) 

6529 PCONF (M=i>iEmN(K)+1.6A*SORT (FlumT ( R-N ) *S I omA* *2 ) 

22 CONTINUL 

NFY(3) = NFY(3) + 1 
NF3 = NFY ( 3 ) 

NF33= I SIGN! NF3.REllS l 3 ) ) 

NF I LE=RtELS ( 3 ) *1000 + NF 3 3 
NFYLEI 3 ,N-3 ) = CASENO 
DIFRC = U W 2 ( N ) - MEAN(N) 

F L P = D 

DO 1216 I W= NPLUS 1 . NPLUSP 
F <N = I - N 

LST(IW) = ( CL.UBP-'-ST IN) ) * F tCN / FtP + oST(N) 

C A LC ( I * ) = (lo5JljP*“CAlC(i\)) x Fnu / P LP + C A>_ C l i n ) 

ACTUAL ( i a ) - ( AiiUuP-AC luAL(‘M ) * Fm< / r LH + ACfbrsi_(i\) 

J ( I ft ) = M t A N ( I W ) 

1216 o W ^ ( I W ) = U(Itv) + lMPRC 

I D ( 7 ) = C A 6 L N 0 
I D { 8 ) = MON T H 
I D { 9 ) =YlAR 
I D ( 10) = N 

id ( i : ) =p 

I D ( 12) = NPROG 

CALL AbO-jT 1 < NF I LE * 1 ) 

CALL AL30UT 2 < NF I L E * T I? L F * 9 I 
CALL AbbUT 7 INF I lL ♦ T 1 1». n * NiPL.uoP ) 

CALL AbbOT 2 ( NF I L c. »U * UPlLLP ) 

CALL AuUU f 2 ( N F I L t » L b I * i ^ P L U o P ) 

CALL AouUT 2 ( NF l Lt. » CALC » NPLu-j P j 
CALL Abb J I 2 I Nr I L t * AC i uALiNPLUbP) 

CALL AbOoT ? ( NF I LE t bUY t N ) 

CALL A b b U T 2 ( < ^ F I L E * < v i F A r* * N P L U b P ) 
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CALL 

ABOUT 2 

( NF I 

LE*UN*N) 


CALL 

ABUUT 2 

( IMF 

I L L » P C 0 N F ( NPluSI ) ,P 


CALL 

ABOUT 2 

( NF 

I L £ • MCONF ♦ NPLUbP ) 

1217 

CALL 

ABOUT 2 

( NF 

ILL » UW2 * NPi-ULP ) 

1300 

CONT 

1 NUt 




CALL 

GOODt 




LND 
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ASYMPTOTIC (LOGISTIC) EXPONENTIAL - 59S 

Unlike the first two models developed, the Maximum Likelihood Linear Model and the 
Maximum Likelihood Nonlinear Model, the Asymptotic (Logistic) Exponential Model 
is a weighted least squares model. The two earlier models, as their name indicates, 
are maximum likelihood models . It should be noted that the difference between a max- 
imum likelihood model and a weighted least squares model are small. When talking 
about the mean line these two models are identical. The weighting factors in the 
weighted least squares model cause this to be true. 

The observations are fitted to a model of the form 

W. = T- c > 0 

l -ct. 

1 + be 1 

vhere a and b are parameters to be estimated and c is restricted to positive values. 
The weighted least squares criteria used to estimate these parameters require that 
the function S(a, b, c, Y.) be minimized, where 

n 

S = £ p.(W. - w.f 

i = 1 

The parameter p. is a weighting factor which is a function of the E/C/A percentages at 
time t. and a program maturity factor a, 

p. = a n_1 (E. + R C. + R A.) 

H 1 ' 1 11 2 1 

Proportionality factors, R.^ and R 2 , are designed to give those observations having a 

higher estimated percentage less influence in shaping the trend line. To achieve this, 

the values for R and R must be selected in accordance with 
1 2 


'he method employed is similar to that used in the Maximum Likelihood Nonlinear 
Model. A range of c values is established, and for each c in the range, initial esti- 
mates of a and b are made. An iterative scheme is employed to obtain corrections 
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Aa^ and Atx for a and b, respectively. When |Aa^/a| and | Ab^/b | are both less than 
€ = .001, the iteration process is terminated. The weighted sum of squares of errors, 
S, is computed, and the program repeats the above process for the next value of c in 
the range. When all c values have been exhausted, the minimum S is determined, and 
the corresponding values of a, b, c are the desired parameters. 


Certain restrictions are placed on the corrections Aa. and Ab.. Maximum allowable 

J J 

values of the ratios | Aa7a| and | Ab./b| have been specified. If the computed correc- 
tion exceeds the allowable maximum, the allowable maximum with the sign of the com- 
puted correction becomes the correction factor. If the convergence criterion |Aa^/a| <e 
and | Abj/b | < e fails to be met within 100 iterations, the minimum S computed to date 
will determine the parameters a, b, c. As in the nonlinear model, c is restricted 
to values 


c = k(.001) 


k = 1, 2, 


2000 


Input to 59S consists of a case number, its associated Weight Data File, the program 
maturity factor a, 0 < a < 1, and the program option. This input is specified on a 
'data card which is read by the Control Program 55S. For a detailed description of 
this data card see program 55S. 

Four program options are available to the user. Each of these options incorporates 
the effects of the E/C/A percentages on the prediction line. The approach was to allow 
the effect of E/C/A's to be introduced in one fashion in the prediction range and to be 
introduced in an unrelated manner in the observation range. It turns out that the mod- 
els for both ranges are functionally the same, the only difference being the parameter 
values in the different ranges. In the following, p.° refers to weighting factors in the 
observation range while pP refers to weighting factors in the prediction range, where 

p.° = a n-1 (E. + R C. + R A.) 

i v l ii 2 r 

p. P = (R E. + R C. + R A.) 

^ 3 1 4 1 5 1 

E., C., A. are E/C/A percentages at time t. and R. (i = 1, 2, 3, 4, 5) are proportion- 
ality factors designed to influence the shape of the trend line. 

In the observation range, p.° is a function of a and the E/C/A percentages at time t. . 
Thus, besides using the E/C/A percentages to weight the observations, the user may 
also weight them with the a factor. If no other weighting except the E/C/A percentages 
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is desired, choose a - 1. If it is desired to weight later observations more heavily 
than had been earlier observations, choose 0 < a < 1. In general, a should be chosen 
such that , 95 asl. For a < . 9, the program maturity factor becomes dominant over 
the E/C/A weighting and tends to discard all but the last 9 or 10 observations. 

In the prediction range, the incorporation of the influence of the E/C/A percentages 
is accomplished by adjusting the original model, W., to obtain 

W A = W A + p. P (W. - W. ) 

1 1-1 K 1 v 1 1 - 1 / 

where the superscript A denotes an adjusted trend. The E/C/A values employed in 
the prediction range are obtained by linearly interpolating the E/ C/A percentages at 
the last observation to the assumed E/C/A percentages of 0/0/1 at ship date. 

In the model, R i = 2, R o =4, R 3 = 1, R 4 = .5, R g = .1. The following options over 
the observation and prediction ranges are available to the user: 

= 1 

= 1 

= 1 

= f(E/C/A) 

= f (E/C/A, a) 

= 1 

= f (E/C/A, a) 
p. P = f (E/C/A) 


OPTION 1 


p i 


OPTION 2 




OPTION 3 . 


p i 


OPTION 4 


Output consists of a file of data as is described on the following page. 
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FILE ID 

FILE NO 

DATE 

PROG 

LRS 

V 

CASE NO 

MONTH 

YEAR 

N 

P 

NPROG 


TITLE 


TITLE 9 


TIME : 


time n+p 


WEIGHT^ 


WEIGHT 


EST X 


N+P 


a N+P 


CALC, 


calc n+p 


ACTUALj 


actual n+p 

BUY 1 


MEAN 



mea.Nn + p 

PCONFj 


pconf n+p 

MCONFj 

mconf n+p 

UW2 X 

UW2 n 

PREDj 

PRED p 


FILEID 

FILENO 

DATE 

PROG 

LRS 

V 

CASENO 

MONTH 

YEAR 

N 

P 

NPROG 

TITLE 

TIME 

WEIGHT 

EST 

CALC 

ACTUAL 

BUY 

MEAN 

PCONF 

MCONF 

UW2 

PRED 


label identifier 
file number 

date file was created (MMDDYY) 

BCD name, of program 

size of logical records within 
the file 

control word for SPACE 

case number {integer) 

month in which first data point 
was observed (integer) 

year of first observation (integer) 

number of observations (integer) 

number of predictions (integer) 

code word 

case title 

time points 

normalized weights 

estimated percentages 

calculated percentages 

actual percentages 

nonrandom changes #1 (buyoffs) 

mean trend line 

+95% confidence limits 

nonrandom changes #2 (outliers) 

observed weights 

prediction line 
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Write 

Data 
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SIPFTC LOGMOD LIST, REF 
INTEGER REELS 

INTEGER CASENO,P,PMONTH,PYtAR»YEAR 
DOUBLE PRECISION M22.M22I 

COMMON /ACCESS/ HC ( 100 ) , WDC I , I D ( 1 2 ) , PROG 

COMMON /SYSTlM/ NTaPES,REELo( IS) ,CNTRLS( lb) , FILES! 15) » LRS ( 15 ) * 
1 POS( 15 ) , TRLPOS (15) ,RWCNT ( 15 ) »UN I TS ( 1 5 ) 

COMMON /PFILE/ NF YL E ( A , 300 ) , NF Y ( 4 ) 


COMMON 

/PPOu/ ACTUAL(IOL) 

* CALC 

(luu) 

* lot 

( 10U ) 

* CUM 

( It) 9 

1 

LSOR (100) 

* MLMN 

(luu) 

9 KCONF 

( luu ) 

* UWZ 

( i U U } 9 

2 

MS UR (100) 

9 PCUinjF 

( luu ) 

* 01 

Uuu ) 

9 o 2 

1 iUu) 9 


3 TIME (100) , WLlGhT ( luu ) , uuY (100) , T 1 T L E l 9 ) , 

4 N , NTOT 
COMMON / LOG I S/ KEEP ( 4 ) , ALP 

DIMENSION CP ( 21 ) *AP(21 ) * t)P ( 21 ) »RHO ( 100 ) ,M22 ( 2 *2 ) ,M22 I ( 2 *4) »G( 2 ) 
DIMENSION YbARA(luu) »S ( 20 ) , T Ol'il 6 )*»*'( 100 ) » YbAR ( 100 ) , ECT ( 1 UC ) , 

IDEM ( 100) 

lUUIVALLNCE ( COM ( 1 ) » P MONTH ) , ( COM ( 2 ) • P Y EAR ) 

( COM ( 5 ) » R 1 ) 

( COM ( 8 ) »boUbP ) 


( COM ( 1) , PMONT H ) , 
( COM! 4) ,YEAR ) , 

( COM ( 7 ) » ASUb P ) , 

( COM( 10 ) , NSUBP ) 

2 . , 4 . , 1 . , . 5 , . 1 / 

/ 3HL0G/ 


( COM ( 3 ) » MONT H ) 
( COM ( 6 ) » R 2 ) 

( COM ( 9 ) , CuUoP ) 


DATA TOM/1. 

DATA NPROG 
CALL TRAPOK 
DO 1300 1 1 = 1 , NTOT 
CALL GETDAT ( IPSWT , II, CASE NO) 
NPLUS1 = N + 1 

NPLUSP = 1 2 * ( PYEAR - YEAR ) 


+ PMONT h - MONTH + 1- 


K.8 5 = T I ME ( N ) 
P=NPLUSP-K85 


NPLUSP=N+P 
DO 40 51 I 3 = 1 » N 

4 u 5 1 W ( I 3 ) = wE I GHT ( 13) 

DO 408 J8=NPLUS1 , NPLUSP 

EST(u8)= -EST ( N ) *F LOAT ( J8-H ) /FLOAT ( P ) + EuT IN) 

CALo ( J8 ) =-CMLo ( N ) *FLOAT ( J8“i'i ) /F uoAT ( P ) + CALC(N) 

408 AC T UAL ( J8 ) = ( 1 .-ACTUAL ( N) )#FlO«T (J8 _ N)/F LoAT ( P ) + ACTUAL (m) 
DO 23 I =NPLUS1 .NPLUSP 
2 3 TIME ( I ) =T I ML ( I-l ) + 1. 

DO lOCOO J9= 1,4 

I F ( KEEP ( J9 ) ,EQ. 0 ) GO TO 10000 

NP AT H = KLEP ( 09 ) 

GO TO (410,411 ,412 ,413) ,NPATH 
410 DO 4100 1=1, NPLUSP 

4100 RF10 ( I ) =1. 


GO TO 414 

4 11 DO 4 1 1 u 1 = 1 * N 

4110 R HO ( I ) =1. 

DO 4111 I =NPLUS1 .NPLUiP 

RHO ( 1 ) = (I DM (4 I*LoTI I ) +T0h l 5 ) *CALC ( I ) + T Urt ( 6 ) * AC To AL ( 1 ) ) / 
1 ( 1 ,+AC TuAL ( I ) ) 

4111 CONTINUE 




GO TO 414 

412 DO 4120 1=1. N 

RHOt I ) = ( ALP** (N-I ) )*< TOM< i ) *t$T ( 1 )+TOM( 2 )*CAlC < 1 ) + TOM< 3 ) *AL I UAL 

i tin 

4120 CONT INUE 

DO 4121 I =NPLUS1 .NPLUSP 

4121 RHOt I ) =1. 

GO TO 414 

413 DO 4130 1 = 1. N 

RHOt I ) = ( ALP** (N- I ) )•* ( TOM( 1 ) *tST < I )+TOM( 2 )*CALC< I ) + TOM 3 )*ACVUAL 
i tin 

4130 CONT INUE 

DO 4131 I=NPLUS1 .NPLU5P 

RHOt I ) = ( T0M<4) *c$T l I 1+TOMl 5 ) *CALC ( 1 )+TOM(6 ) * ACTUAL! I ) ) / 

1 (l.+ACTUALt I ) ) 

4131 CONTINUE 

414 CONTINUE 
K.SW I T = 0 
NSW I T = C 
A 1 = 0 . 

B 1 = 0 • 

C1=0. 

01 = 0 . 

Fl = v. 

DO 6 I = 1 . N 
A 1 =A 1 + W ( I ) * RHOt I ) 

Bl=bl + TIML( I )*Wt I ) * RHO ( I ) 

C1=C1+T1ME< I) * RHOt I ) 

F 1 = F 1 + RHO ( I ) 

o D 1 = D 1 + T I i-i c. ( I ) * T I M E ( I ) * RHu(I) 

E 1 = F 1 *D 1-C 1**2 

ALPHA= ( A 1 *0 1 - C 1 *b 1 ) / E 1 

BETA= ( F 1*B1-A1*C1 ) /El 

EN = N 

Sl(l) = EN / 4. J 
A 1 = ALPHA + bl(l) * bETA 
S2( 1 ) = ( 3.o*EN) / 4.C 

B 1 = A i-PHA + $2(1) * oETA 
31(1).= „ . 1 * Sill) 

o 2 ( 1 ) = - . 1 * $ 2 ( 1 ) 

A P ( 1 ) = A 1 + uPt 1 )*EXP (-S1 ( 1 ) ) *A1 

cP(l)= ( A 1 -4 1 ) / ( EXPI-S2 ( 1 ) )*isl - LXPt — olt 1 ) )*A1) 

CP( 1 ) = .l 
DELC=CP ( 1 ) 

ATEST =l , 

K.OUNT = 20 
50 CONTINUE 

DC 15 1 = 1, 2C 
DO 13 K. = 1 » 1 0 o 
DO 9 17=1,2 
DO 8 J = 1 , 2 
8 M2 2 t I 7 » J ) =o . 

G( I 7 ) =o. 
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DO 10 J= 1 » N 

ECT ( J ) =EXP ( -CP t I ) * T I M E ( J ) ) 

DEM J)= 1 . +BP ( I )*CCT(J) 

Y8AR ( J ) = AP(I)/DEN(J) 

M2 2 ( 1 » 1 ) = M 2 2 (1.1) + ( ( YBAR ( J ) **2 ) *RHO( J ) ) / A P < I ) #«2 

M2 2 ( 1 *2 ) =M22 ( 1 » 2 ) ~ l t Y6AR( J ) **2 ) *KHU( J )*ECT ( J ) ) / ( AP ( I ) *Dt_M j ) ) 

M2 2 ( 2 »2 ) =i-i2 A ( 2*2) + ( RHO ( J ) *lCT ( J ) *lCT (J)*lYbAR(J)**2) ) / ( u ) ** 2 

0(1) = G ( 1 ) + (KHO< J ) *YbAR ( J )* ( M ( J ) -YbAK I J ) ) ) / AP ( I ) 

0(21=0(2) -( KHu ( J)* ( * ( J )-YbAR( J ) )*AP ( I )*tCT < J ) )/dliM ( J) **2 

10 CONTINUE 

M22 (2.1) =M2 2 (1.2) 

CALL DPMI (2.M2 2.M22I ) 

CALL SLITEK3.JFK) 

GO TO ( 50C 0 . 1 1 ) .JFK 

11 CONTINUE 

DELA = M22 I ( 1.11*01 1 1+M22I ( 1 *2 ) *G( 2 ) 

DELb = M22 I ( 2. 1 ) *0( 1 )+M22 I (2 ,2 )*G( 2 ) 

I F ( 1C .EG). 1 ) XONE = DELb 
01 = ABO ( DELA/AP ( I ) ) 

02= ABO ( DELb/bP ( I ) ) 

NFLAG=C 

I F ( 01 .LT. .001 .AND. 02 .LT. .001 ) GO TO 12 

NFLAG=1 

I F ( 01 .LE. .5 ) GO TO 111 

DELA= SIGN( • 3* AP ( I ) .DELA) 

111 I F ( 02 .LE. 1.2 ) GO TO 1222 
UELc =S I GM 1 . 2*bP ( I ) . DELb ) 

GO TO 12 
1222 CONTINUE 

1 F ( K .EO. 1 ) GO TO 12 

SELEC T = XONt/DELb 
XONE=DELB 

I F ( oELlCT .OT. d. ) GO TO 12 
SELECT=ABo(oELECT) 

I F ( GLLlCT .uT. .73 •Al'IU. olLlCT .lT. 1.23 ) l/llu = l/lLu/2. 

XCNE=DCL6 


12 

APt I ) = A P ( 

I ) +DELA 



BP< I ) = 13 P ( 

I F ( Nr LAG 

I ) +DELB 
• LQ • 0 

) GO 

13 

CONTINUE 
I F ( ATLST 

« oU» 1 • 

> GO TO t>0 0 0 


KCUM= 1-1 
I F ( K.C 0 NT 

. N L . w ) 

GJ ro 21 


WR I TE ( 6 » 1 49 1 ) ' 

1491 F ORMAT ( lril » h2Hi~uu1oTI^- i*iOl>L L Uulo Nu ) FIT i n L DAlA. c_Xll) 

GO TO l^oOu 
14 API 1 + 1 )=AP( I ) 

BP ( 1+1 ) =BP< I I 
C P ( 1*1 )=CP< I ) +DELC 
S ( I ) =c . 

DC 149 J 1 = 1 » N 

149 S ( I ) =S ( 1 ) + RHO ( J 1 ) * U' ( J1 ) - ( API I ) / ( 1 .+oP ( I ) *tXP ( -<_P ( I ) *T Ii'm ( 01 ) ) ) 
1 ))**2 
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15 CONTINUE 

21 CONTINUE 
SMIN=10.E+1 0 

DO 16 I = 1 » KOUN T 

I F ( 5(1) .GT . 5MIN ) GO TO 16 
K=I 

SM I N=S ( I ) 

16 CONTINUE 
A2=AP ( K ) 

BB = 3P ( K ) 

CC=CP(K) 

ATE5T = 1 . 

I F ( KSWII .to. 1) GO TO 2U 

K = K + 1 

AP ( 1 )=AP(K) 
bP( 1 )=BP(K) 

CP ( 1 ) =CP( K ) 

DE LC = - . 0 1 
KSW I T = 1 
KCUNT = 20 
GO TO 50 
20 CONTINUE 

I F ( NSW I T .to. 1 ) GO TO 5oOO 
I F ( CC .Lt. .011) GO TO 4999 
6=K + 1 
DE LC = • 00 1 

4998 CONTINUE 

AP ( 1 ) = AP ( K ) 

BP ( 1 )=BP(K ) 

CPI 1 )=CP(K ) 

N S W I T = 1 
KOUNT = 2 C 
GO TO 5C 

4999 CONTINUE 
K = K-1 

DELC = - . CC 1 
GO TO 4998 
5 f 0 0 CONTINUE 

DO 22 I = 1 » N P L U 5 P 

22 YBAR(l) = A2/ ( l.+do*tXP ( -CC*T IMt ( I ) ) ) 

YBARA(N>=YRAR(N) 

DO 415 J5-NPLU51 .NPLUSP 

415 YBARA ( J5 ) =YdARA< J 5-1 >+RHO( J5 ) *< YBAR ( J5 ) - YoAK ( J 5"1 ) ) 

Nr Y ( 4 ) = NF Y ( 4 ) + 1 

NF4 = N F Y ( 4 ) 

NF 44=1 SIGN l NF4, REELS ( 4 ) ) 

NFILE=RLtLS(4)»1000 + NF44 
NFYLEI4.NF4) = CASENO 
DIFRC = U >•. 2 ( N f - YcAR(N) 

DO 1216 IV. = NPLJS1 .NPLUSP 
W ( I W ) - YbARA(IW) 

1216 UW 2 ( I W ) = v.(IW) + DIFRC 
I D ( 7 ) =C A5ENC 
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.12 17 

1CC00 
1 300 


1 0 ( 8 ) = MONTH 

I D ( 9 ) = YEAR 

1 D ( 10) =N 

I D ( 1 1 ) =P 

I D ( 1 2 ) =NPROG 

CALL AuOUT 1 (NFILL. 1 ) 

CALL ABCUT2(NFILE.TlTLE.9) 

CALL ABOUT2 (NF ILE. TIME .NPLUSP) 

CALL ABOUT 2 < NF I LE , W * NPLUSP ) 

CALL AB0UT2(NFILE.EST, NPLUSP) 

CALL ABOUT 2 ( NF ILE .CALC .NPLUoP ) 

CALL ABOUT 2 ( NF I LE » ACTUAL . NPLUSP ) 
call about 2 inf i le .buy «n ) 

CALL ABOUT 2 ( NF I Lt ♦ YoAR ( 1 ) . N ) 

CALL ABOUT 2 (NFILl, YdARA ( NPLUS1 ) ,P) 
CALL ABOUT 2 (NF ILE. PCUNF .NPLUSP ) 

CALL AuOUT 2 INFILL. MCONF .NPLusP) 

CALL ABOUT 2 (NFILL. UW2 . NPLUSP) 

CONTINUE 

CONTINUE 

CALL GOODE 

END 
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OUTPUT PROGRAM - 60S (OUTPT) 

This routine reads the binary output files that are generated by each of the four trend- 
ing methods and produces printed tabular and printed plot output in a uniform format 
for each method. 

No options are available ; all output that is generated during trending is processed by 
this routine. An example appears on the following pages. 

Control over this routine is maintained by the Control Program 55S. 


prediction analysis technique * blk II spacecraft mission 504 ♦ subs • c*sE Dumber * date 11/21/65 * R^guiRtu buyoff 

««•««««•«#«•«««**«»•«»»»«»»»» * LEM ascent * * * 

NON-LINEAR MODEL * AT BURNOUT • 0611906 * INPUT TAPE 10/08/65 * EQUIVALENT S/C 

COMPUTER PROGRAM 57S * NAVIGATION A N D GUIDANCE * * FILE STATUS NO. 20 * DEFICIT 
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DATA FILES CREATED BY TRENDING METHODS 




n no 
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Issue Date ~ 23 Dec 1965 

Supersedes 13 August 1965 


SIbFTC OUTPUT LIST, REF 

c * 

c *** GENERAL OUTPUT ROUTINE FOR 1 HE TREND SYoTtM 
C * 

INTEGER RtiLLS*CAbENOtP*PMONTH»PYtAR*YEAR 
REAL LSOR*MEAN*MCONF,MSwR 


C 


COMMON 

COMMON 

COMMON 

1 

COMMON 
C JHmui'm 

1 

2 

3 

A 

COMMON 

COMMON 


/GGDATE/DATE ( 2 ) 

/ACCESS/ HC( 100) , *UC T , 10(12) , PROG 

/SYSTEM/ Ml APES • KlELo( 15 ) .C^TKLo ( 15 ) #FILES( ) • l-Kj ( IS ) * 
PUS l lb ) * i RLPos t IS ) tRrtCiMl ( IS ) *UM TS( IS ) 

/PT 1 ll/ NFYLt(4»3CG)»Ni-Y(4) 

/ P P Uvj / ACluAL(10U)*OALCilUU)*LUl (luuj* COM ( 1 <L ) * 

L SUR ( 1 OU ) »i v ilAin*( luO) , mC uimL ( 1 U u ) , u W 2 ( i 0 J ) , 

MS 0 R ( 1 0 0 ) » P L ui\F t 1 o U ) , S 1 ( 1 u u ) , o 2 ( 1 0 0 ) * 

TIMttluO) , »v L I bh T i 1 u u ) , u> U Y [ 1UU) 9 1 I I L l ( 9 ) 9 

N 9 NTOT 

/ "j T T / in* 2 1 9 01 9 D 2 9 J 1 R U N 

/ZE t/ ZL INE1 ( 6 ) *ZLI NE2 ( 6 ) #ZLINE3( 6 ) tZLl IME4( 6 J 


C 


DIMENSION 
DIMENSION 
DIMENSION 
u I ML NS I uN 


XMUNTHI 12 > 9 PNME ( A) 

TNME ( A 9 A J ,BLANK ( 7 ) 

PTAb ( A ) 9 MASK ( 7 ) 

ukIl>(867)9 C a L •— t 3 ) »uLm v i( U ) , I u L is Y ( 1 2 ) 9 T Al> ( 2 4 ) 


C 


C 


LuUiVALL.<NiU(_ 

2 

3 


( C um ( II 9 Pmuu T n J * ( Cuh ( 2 1 »TY lAk ) » ( (.ui’i l 3 ) 9 rib in I H) » 

( COM ( A ) 9 Y E AK ) 9 ( Cut*i ( S) 9 K 1 ) * ( Cum ( 6 ) fi< 2 ) ♦ (Con 17 ) 9 A .j^d P ) 9 
( COM ( 8 ) 9 uSUqP ) *( C oM ( 9 ) , bbucp ) 9 ( Cum ( 1 u ) 9IO00P ) 


uATh 

/ 

XMJNTn 

/ 3 h J A N 9 3 i i F L u 9 J hM>-> K 9 3 H A P K * 3d rlA Y 
3HSEP 9 3hOCT 9 3hNGV , 3 RDEC / 

9 3rl U'Ju 9 3H Jul 9 3 Hmuu 9 

LATA 

TNME 

/ 6 HLlNEAR, 6 rl i v iuDEL* 6 H »t)H 

9 

1 


6HN0N-LI , 6 HNlAR M, 6 HjDEL , 6 H 

9 

2 

3 


6 H f- OUR I E 9 6 H R » 6 dL » 6 i"i 

6 n L 0 G I S T * 6 H I C Mb u 9 6 1 1 l L 9 b M 

9 

DATA 

BLANK 

/ A2 H 


uA T A 

PT Al 

/j>riS 6 of 3 n^ 7 S 9 jn Jb o » jh^ 9 o/ 


i^ATa 

N S 0 h Ll 

/ 1 9 O 9 — i 9 0 9 — 1 / 


DATA 

T Au> 

/l« 092 »Gt 5 « 09 lC»u 9 ZU» 0 *ZS#U*SO* 

vj9i0U*0tL00*09 

1 


250*0 9 b^ 0*0 » iCOO*O 920 Uu*C 9 2 5 u d 

• Of S 0 U 0 • 0 9 i U U -J d • 0 9 

2 

3 


2 OOoO • 0 9 2 5 COu • 0 9 b 0 0 0 0 • 0 9 1 v L G d C 
250000*0 9 S000 00*0 9 1000 000*0/ 

• J 9 20uO«Jw • u 9 


DATA 

DATA 


ARG 

MASK 


/ 6 HSAVTAP/ 

/I 9l 9 1 f 1 9 1 9 1 - 


1/ 


* * 


IZO = u 

DO I CK = I 9 A 

IF (KElLS(Iln) .to* 0) GU lu 900 
IF (NFY(ICK) .lQ* 0) GO TO 9u0 
PNO s PTAb ( ICK ) 


n n 
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C 

c 


c 


c 


LOOP = NFY ( ICK) 

DO 120 MM = 1*4 

120 PNME(MM) = TNME(MM.ICK) 


DO 600 MA = 1 » LOOP 
LSKIP = 0 
LINE = 0 
NZ = MA 

NZ = ISIGN (NZ,REELS( ICK) ) 
NZ = REELS ( ICK) * 1000 + NZ 


CALL READS 1 (NZ»1) 

NPLUSP = ID(10) + ID(11 ) 

NPLUS1 = ID(10) + 1 

CALL READb 2 ( NZ , T I TLE , 9 ,H I b i RY ) 

CALL R LADd 2 ( NZ « T I ME » NPLUoP * h I STKY ) 
CALL READb 2 ( NZ , WE I GHT ♦ NPLosp , H I bTRY 
CALL READb 2 (NZ, EST, NPLUSP, nlsTRY ) 
CALL READb 2 ( NZ . CALC » NPLubP » H I si RY ) 


) 


OALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


READo2 (NZ»ACrUAL»NPL>JoP»f1IblKY ) 
RLAOb2 ( NZ » BUY » I D ( 1 u ) » li I s l RY ) 
READb 2 (NZ.MbAN, NPLUSP *H I oTRY ) 
READS 2 < NZ » PCCNF , NPLUbP , H I ST RY ) 
READb 2 (NZ.MCONF, NPLUSP, HISTRY ) 
READb 2 ( NZ*Uw 2, NPLUSP, HISTRY ) 
ENDF (NZ) 


KRA = I D ( 8 ) 

IYER = I D ( 9 ) - 1900 
CALL TITEL ( Ib(7) , MASK ) 


WRITE (6,9000) 

LKASE = I D ( 7 ) 

LKASE = LKASE / 1000000 
IF (LKASE .NE. 0) GO TO 19q 

WRITE ( 6 , 9uuA ) ZL I NE 1 , DAT E »Z L I Nl2 » PNME , ZL I NE 3 , I D ( 7 ) , 
1 D 1 ,02 * PNO *ZLINEA,N21 

GO TO 192 

190 WRITE ( 6 * 9uu2 ) ZL 1 NE 1 , DA T E , al I Nt_2 , PNMl , ZL I NE3 , I u ( 7 ) , 
1 D 1 , 02 , PNO ,ZLINE4»N21 

192 WRITE (6,9001) 

WRITE (6,9003) 

WRITE (6,9001) 


220 DO 350 KP =1, NPLUSP 
C 

IF (KP .EQ. 1) GO TO 221 

IF (TIME(KP) - TlME(KP-l) ,t(j. 1.0) GO TO 221 
KTY = TIME(KP) - TIME(KP-i) - 0.5 
DO 1122 ITY=1,KTY 
LINE = LINE + 1 
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IF (KRA .LE. 12) GO TO 1221 
KRA = 1 

IYER = IYER + 1 

1221 XMONZ = XMUNTH(KRA) 

WRITE (6.9055) XMONZ, IYER 
KRA = KRA + 1 

1222 CONTINUE 

221 I UW2 = UW2 ( KP ) + 0.5 

I EST = EST(KP) * 100.0 + 0.5 
ICAL = CALC ( KP ) * 100.0 + 0.5 
I ACT = ACTUAL(KP) * 100.0 + 0.5 
IWGT = WEIGHT(KP) + 0.5 
IMENE = MEAN(KP) + 0.5 
IPCONF = PCONF(KP) + 0.5 
IMCONF = MCONF(KP) + 0.5 
IF ( BUY ( KP ) ) 224,222,222 

222 I BUY = BUY ( KP ) + 0.5 
GO TO 225 

224 I BUY = BUY ( KP ) - 0.5 

225 TAG = ( (UW2 (NPLUSP) - UW2 ( KP ) ) / ( F LOA T ( NPLU SP-KP ) ) ) 
IF (TAG) 227,226,226 

226 I AG = TAG + 0.5 
GO TO 228 

227 I AG = TAG - 0.5 

228 CONTINUE 
C 

IF (KRA .LE. 12) GO TO 230 
KRA = 1 

IYER = IYER + 1 
230 XMONZ = XMUNTH ( KRA ) 

C 

240 IF (LSKIP .EG. 1 .AND. KP .NE. NPLUSP) GO TO 350 
GO TO (246,250,258,254) »ICK 
C 

246 IF (KP .GE. NPLUS1! GO TO 248 

WRITE (6, 901o) XMONZ, I YER, I oW2, I LST , ICAL, IACT , 

1 IBUY, IMCONF, IWGT, IMENE, 1AG 

GO TO 275 

248 WRITE (6, 9oll) XMONZ » I Y ER » I GW2 » I EST » ICAL , I AC T , 

1 IUW2, IMENE, IPCONF, IAG 

GO TO 275 
C 

250 IF (KP .GE. NPLUS1 ) GO TO 252 

WRITE (6,9020) XMONZ , I Y ER , I oW2 , I EST , I CAL , I AC T , 

1 IBUY, IMCONF, IWGT, IMENE, IAG 

GO TO 275 

252 WRITE (6,9021) XMONZ * I YER » I ow2 , I EST , I CAL , I AC T , 

1 IUW2.IMENE, IPCONF, IAG 

GO TO 275 
C 

254 IF (KP .GE. NPLUS1) GO TO 256 

WRITE (6,9030) XMONZ , I YER , I UW2 , I EST , ICAL , I AC T , 

1 IBUY, IMCONF, IWGT.IMENE, IAG 
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GO TO 275 

256 WRITE ( 6 » 90 3 1 ) XMONZ » I YER » I * I ES I » I CAL , I AC T » 
1 I UW2 » I MENE » I mg 

GO TO 275 

258 IF ( KP .GE. NPLUS1) GO TO 260 

WRITE (6»904J) XMONZ » I YER » I UW2 » I EST » ICAL » I AC T » 

1 ibuy»imconf,iwgt»imene,iag 

GO TO 275 

260 WRITE (6.9041) XMONZ » I YER , I uW2 » I EST , I CA L , I AC T , 
1 IUW2»IMENE,IPCONF, IAG 

275 LINE = LINE + 1 

IF ( KP .NE. 10(10)) GO TO 276 
WRITE ( 6 » 90o5 ) 

276 IF (LINE .LT. 40) GO TO 350 

IF ( ( NPLUSP - KP) .LE. 6) oO TO 350 
WRITE ( 6 » 9006 ) 

LSKIP = 1 
350 KRA = KRA + 1 


YMIN = 10.0E+10 

YMAX = 0.0 

DO 308 IPP=1. NPLUSP 

IF ( MEAN ( IPP) .LT. YMIN) Y •-> I N = MlAN(IPP) 

IF (MEAN(IPP) .GT. YhAX) Y'*'AX = MEAN(lPP) 

IF ( IPP .GT. N) GO TO 305 

IF (UW2(IPP) .GT. YMAX) Y M M X = Uvv2(IPP) 

IF (UW2(IPP) .LT. YMIN) YMIN = Uw2(lPP) 

305 IF ( I CK. .EQ. 4) GO TO 308 

IF (IPP .LT. NPLUS1) GO TO 308 
IF (PCONF(IPP) .GT. YMAX) YMAX = PCONF(IPP) 
308 CONTINUE 

DM IN = YMIN 
DMAX = YMAX 

DEL t- (DMAX - DMIN) / 10.0 
DO 310 JACK = 1 » 24 

IF (DEL .LE. T Ab ( JACK ) ) GO TO 311 

310 CONTINUE 

311 INK = T AB ( JACK ) 

MIN = DMIN 

YMIN = (MIN / INK) * INK 
YMAX = YMIN + 10. 0 * T AB ( JACK ) 

IYERE = I D ( 9 ) - 1900 
MYY = I D ( 0 ) 

DO 315 MY = 1 » 1 2 
BLKM(MY) = XMUNTH ( MYY ) 

IBLKY(MY) = IYERE 
DO 314 KY = 1 » 4 
MYY = MYY + 1 

IF (MYY .LE. 12) GO TO 314 
MYY = 1 
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IYERE = IYERE + 1 

314 CONTINUE 

315 CONTINUE 
WRITE ( 6 * 9C0U ) 

IF ( LKASE .NE. 0) GO TO 40o 

WRITE (6.90o<.) ZLlNEl .DATE.ZLINE2 .PNME.Zl I NE3» ID( 7 ) » 

1 Dl.D2.PNO.ZLINE4.N21 

GO TO 402 

400 WRITE ( 6 * 9UU2 ) ZL I NE 1 .OAT E *ZL I ixt 2 * PNMt »ZL I Nt3 » I D ( 7 ) . 

1 01 »D2 »PNO»ZL 1NE4.N21 

402 WRITE (6.9001) 

CALL PLOT 1 (NSCALE.10,5.11.8) 

CALL PLOT2 ( GR I 0 . 45 . 0 , 1 .0 . YMAX . YM I N ) 

CALL PLOT 3 ( 1H*»TIME( 1) »MEAiM( 1) .NPLUSP) 

IF ( ICK .EQ. 4) GO TO 425 

CALL PLOT 3 ( lH+> TIME (NPLUS1 ) ,PCONF( NPLUsl ) . 10 ( 11 ) ) 

425 CALL PLuT 3 ( 1HX » T I i k 1E ( 1 ) »uw2 > 1 ) » I 0 ( 1 0 ) ) 

CALL OMIT(l) 

CALL FPL0T4 (41.41H W L 1 G H T IN P U «J N U 

WRITE ( 6 » 90 3o ) ( BLKMIMC ) , IoLKY ( K.K.) , KX = 1 . 12 ) 

WRITE (6.9051) 

600 CONTINUE 


900 CONTINUE 


CALL SPACE 


9003 FORMAT 
1 
2 

3 

4 

5 

6 

7 

8 
9 


9000 

9001 

9002 


(2H *.6X,41H* 
5UH OTHER 


► oybLRV cU oATA «... 
... NuKMALIZlU OAIm . 


* ObsER VEb * . 


3 3H UPPER * A VERauE * * / 9H * 

23H* NONRANDOM* i'wni\AnL<uh* . 284 . 2 li-l* IKlJW 


I'ltAN * « 

*.28X, 

■»./ PCI . *. 


FORMAT 

format 

format 


* / 2 lh *MONTH * WEIGHT * . 

LHANGES * CHaNGls * wtlGHl * . 

VALUc *CONF.LIM.* GROWTH * . 

* (LB) * EST CAL ALT * , 

* (Lb) * EST CAL ACT * ( 

(Lb/MO) » * ) 


1 

2 

3 

4 
3 
6 

9004 FORMAT 
1 
2 

3 

4 
3 
6 


23H WEIGHT * 

5 1 H PtRCtNT * 

52H PtRCtNT * 

8H * / 40H * 

53H (LB) * (LB) 

39HLB) * (LB) * 

(1H1.13K1H*) ) 

( 1 X * 1 3 1 ( 1 H* ) ) 

(1X.34H* PREDICTION ANALYSIS TlCHNIoul * »6A6. 1X.1H*. 

2ori CASE NUMoER * DaTl . 6X . ao » A 2 . 1 8h * KcwOIKLO dUYoFF. 
6X.1H* / 3H * .29(1h*). 3H * »6A6»^H * . i 3X , lH* » 2 1 X . 1H* . i 

6X.7H LB * / 3H * .4a6.5X.3H * .6A6.2H *.3X.I7»3X. 

13H* INPUT TAPE .A6.A2.25H * EOUIVALEitT S/C OR L/'v* / 

19H * COMPUTER PRuoKAM * 3X . A 3 * 7X > 3ri * .6A6.2H *.13X. 

17H* FILE STATUS NO. .I4.12H * DEFICIT .6X.7H Lb » ) 

(1X.34H* PREDICTION ANALYSIS TtCHNlooE * >6A6» 1X.1H*. 

2 OH CASE NUMoER * DATE .6X.A6.A2.18H * REUUIREu bUYOFF, 
6X.1H* / 3H * .29 ( 1H* ) » 3H * .6A6.2H *. 13X, 1H*.21X»1H*» 1 

6X.7H LB * / 3H * ,4a6.5X,3H * .6A6.2H * . 3X . 1 Ho . 1 6 > 3X . 
1 3H* INPUT TAPE .A6.A2.25 h * lOoIVAllmT s/C OR L/V* / 
19H * Computer progi\am»5x.a3.7x.3H * »6A6. zh *»13x. 

17H* FILE STATUS No. .I4.12H * DtFlClT .6X.7H Lb » ) 


i 


I 


9005 FORMAT 

9006 FORMAT 
1 

9008 FORMAT 
1 
2 

3 

4 

5 

6 

9ul0 FORM A r 
1 
2 

9011 FORMAT 
1 
2 

9020 FORMAT 
1 

2 

9021 FORMAT 
1 

2 

9 ^ 3 o FORMAT 

1 

2 

9031 FORMAT 
1 
2 

9040 FORMAT 
1 
2 

9^41 FORMAT 

1 

2 



( / 3 3 ri PRllUCTlu V A L»U 1_ 5 ••••••• / ) 

( 3 X * 1 H * / 3 X » 1 H • / 33H FINAL PRlDICTLD VALOlS ••••••• * 

/ 3 X * 1H • ) 

(// 1 3X » 1 6HCONTROL WtlbhT >6X»5H Lb .5X. 

1 9H T RADE-OFF FACTOR >6X,1GX, 

32H I NTERCE.PT DATE.’ Or PRbDICTtu LINt / 

93X.19HWITH CONTROL WLlGhT.5X*5X / 

13X . 16HREQUlRt:0 bUYOFF »6X,5h Lb oX> 

1 9 H LuU IVALtNT DEFICIT ,6X . 3H Lb oX» 

39 HPRUbAb 1 L I TY UF l_XCcuuIimO CuNTkUL WlIGHT .3X.5H PCI*) 

{ 1X.A3.1X* I2.1X.1H*. 1 8 » 3H * »3(I3.2X)»3H* * 

I 6 * 3n * * 2 X » 1 6 » 2 X * 1 n* .I8.3H *.17X. 2H* »l7*3n * »7 a» 

3 Ft * . 17. 2H * ) 

( 1X.A3.1X. I2.1X.1H*. I 8 » 3 n * » 3 ( I 3 » 2 X ) * 3H* . 

6X.3H * * 1 G X > 1 H* .I8.3H *.17X.2n* .I7.3H * .17. 

3H * , 17. 2H * } 

( 1X.A3.1X, I2.1X.1FI** I 8 » L> H * ,3(I3,2X),3H* . 

16. 3H *»2X.I6»2X.1H* ,18, 3H *,17X.2H* .I7.3H * ,7X, 

3H * » 17, 2H * ) 

( 1X.A3.1X. I2.1X.1H*. I8.3H * .3<I3,2X).3H* , 

6X.3h *»1UX»1H* t 1 8 1 3h *.17X.2H* »I7.3ri * ,17, 

3H * » 17, 2H * ) 

{ IX ,Mj .IX. I 2 , iX , 1H*» 1 8, 3H * » 3 I 1 3 * 2 X ) , 3H* , 

I6.3H *.2X»l6.2X.in* .18.3 h * , 1 7 X * *: n * .I7.3H * ,7X, 

3 H * , 17, 2H * ) 

(1X.h3.1X.I2.1X.1FI*. 18, 3H * .3(I3,2X).3H* , 


6X.3H * ♦ I u X ♦ 1 H* .18.3H *.17X.2H* , I7.3H * * 7X » 

3H * , 17, 2H * ) 

( 1X.h3.1X, I2.1X.1H*. I8.3H * , 3 ( I 3 , 2 X ) , 3 H* , 

I6.3H *.2X, I6.2X.1H* .I8.3H- *, 17X. 2H* .I7.3H * ,7X, 

3 H * » 17, 2H * ) 

(1X»h3,1X,I2,1X.1H*,16.3H » *3(I3.2X)»3H* , 

0 X 0 M *.luX .in* * I b » 3n *»i fX.GH* *17.^n * .1/. 

3 H * , I 7 ,2H * ) 


9^50 FORMAT ( 9 a . 1 2 ( A 3 » i X , I 2 ♦ 2 X > ) 

9 u5 1 FORMAT ( 4 bX.WHT I M c_ I in M U M 1 n o / 12X. 

1 2 1 H X = OdSERVlO welGHT .15X 

2 2 7H * = MEAN lSTIMaIlD WEIGHT »15X, 

3 2 3H + = CONFIDENCE LIMITS ) 

90 55 FORMAT ( 1 X , « 3 . 1 X . I 2 , 2H * , 1 OX . In* . 1 7 X , lh * , 3 ( 1 OX . in* ) . 
1 17X.1H*,3( 9X.1H* ) ) 

END 
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HISTORY PLOT PROGRAM - 61S (HIS) 

This routine produces a printed plot of the historical weight observations. Input to 
61S consists of a case number and its associated weight data. This input is specified 
on a data card which is read by the Control Program 55S. For a detailed description 
of this data card see program 55S. 



OBSERVED WEIGHT HISTORY PLOT 
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SIBFTC HISTRY LlbT ,REF 


*** HISTORY PLOT ROUTINE FOR TPiL TRlND SYSTEM 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

COMMON 

COMMON 

COMMON 

1 

COMMON 

COMMON 


REELS * WDC T 
CASENO,T ILT 
CASNO 
YEAR 

/ A^LdSS/ HC ( lUu ) »WOCT • ID ( 12 ) ,PROu 
/GGDATE/DATE ( 2 ) 

/SYSTEM/ N I A P E S * K E L s ( IS) *CnTKlS( 1S) * F I L t s t IS) * L K S t 1 o ) * 
PUS ( is ) * l RLPOo ( 1 S ) *RrtCiVf l 1 j ) *UIMII s ( is ) 

/PFILt/ NFYLL ( A ,300 ) ,NFY ( A ) 

/ P PuG/ ACTUAL ( loo ) > C ALC llU(J)*tsT(lOU) *COM( 12 ) > 


1 

2 

3 

A 

1 

2 


LSQR (100) » Mt AN ( 100 ) ,mCUinP ( 100 ) ,UW2 ( 1^0 ) t 
MSQR ( 1U0 ) » PCONF ( 1 Ou ) * S 1 ( 1 0 j ) * S2 ( 1UG ) * 

TIME ( 100 ) *Wt I6HT < 100 ) * GJY (100)>TlTLt(9)» 

N » NTOT 

COMMON /BLOCK/ NCASL (10) » T T I T L L ( 90 ) * AAA (ISO) , NANuMQO)* 
TdLOCK ( 300 ) , WoLOCK ( 30 u ) , luLuCk(30u) ♦ inimUm (lu), 
CbLQCK(30U)» auLOCM 3u\j ) » ddluCKI 3uu ) 

COMMON / S T T / IN 2 1 » D 1 . D2 » J 1 RUN 

COMMON / hHP / I OPT * JOPT ,KuPT » inPATH 

COMMON / Z Ll/ ZLlNLl (6) ,ZLINl2(6) *ZL1Nc.3(6)*ZLINl4(6 ) 

DIMENSION oR I D ( 867 ) » NSC AL t ( S ) 

UlKtNS I ON XMUNTrt ( 12 ) * PNME l*)*IAt>(2M*b‘-KMl2)tIaLKY(12) 


DIMENSION MASK ( 7 ) 

EQUIVALENCE ( COM( 3 ) • MONTH ) t ( COM ( 4 ) ,YEAR ) 

DATA TAd /1.0,2*0,5*0,10.0t20.0«25.o,5U.o,100.0,200.u,2:>0.Q, 

1 500.0 , 1000.0 ,2000*0*2300.0 * 3000 . 0 * 1 C000 . 0 » 2 0000 • 0 , 

2 2 3000*0 , 50000.0 » 100000. 0,20 000 U. 0*250 000.0 • 

3 300000.0,1000000*0/ 

DATA MASK/ 1 , 1 , 1 * 1 * 1 , 1> 1/ 

l-AT a XMJNT n / 3n JAiM , 3nF lu , jhi v IaK , 3haPk * 3HwA Y , 3nj , 

1 3H JUL , SrlAUo , SHolP , 3noC T * 3 rllNu v , 3nu ll/ 

UAT A PNMl /6HHlSTUK*6hY PLUI,6H *6H / 

DATA PNC / 3H6 1 S / 

DATA NSCALL / 1 , 0 , - 1 , 0 , - 1 / 

XSTART = 1.0 

XEND = 45.0 

DO 500 M'JO= 1 * N TO T 

CALL GcTDAT ( IPSWT , MUG,CASLNu) 

CALL T ITEL ( CASENO,MASK ) 

LKASE = CASENO / lOJOGOO 
CASN0 = C AScNC 


IF 

(IPSaT .L u. 12) GO 

TO 210 


YM I N = 

10.0E+10 



YMAX = 

0.0 



DO 

150 

I P = 1 , N 



IF 

( UW2 (IP) .6T. YMAX) 

YMAX = 

Uw2 (IP) 

IF 

( UW2 (IP) .LT. YMIN) 

YMliN = 

U^2 (IP) 


150 CONT INUE 



n n 
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DM IN = YMIN 
DMAX = YMAX 

DEL = (DMAX - DMIN) / 10.0 
DO 2 Co JO=l *24 
IF ( DtL .Lt. TAb(JO)) GO To 
200 CONTINUE 
205 INK t TAB(JO) 

MIN = DMIN 

YM I N = (MIN / INK) * INK 
YMAX = YM I N + 10.0 * TAB(JO) 

GO TO 212 
210 CONT INUE 

YM IN = COM (11) 

YMAX = COM (12) 

212 IYERE = YEAR - 1900 
MY = MONTH 
DO 220 MI = 1 * 12 
BLKMIMI ) = XMUNTH(Mf) 

IBLKY(MI) = IYERE 
DO 216 KI =1 .4 
MY = MY + 1 

IF (MY .LE. 12) GO TO 216 
MY o 1 

IYERE = IYERE + 1 
216 CONTINUE 
220 CONTINUE 

WRITE ( 6.900o ) 

IF (LKASE .Nc. 0) GU TO 230 

WRITE (6»9o^4) ZL I NE1 » DA T L » ZL Ihc. 2 , PNi»it. »ZL 1 hE3 » CAohO « 

1 01 »D2 .PNO.ZoiHEA.N21 

GO TO 234 

•230 WRITE (6»9oo2) Z L I NL1 . DA T l . ZL I NE 2 . PNi-iE . ZL I mt 3 . C AoimO . 

1 D1 .D2.PNO.ZLINE4.N21 

234 CONTINUE 

WRITE (6.9CC1) 

CALL P LOT 1 (N SCALE. lo,5.11. 8) 

CALL PLOT 2 ( uR I O . XtNo » XST AR T » YMAX » YM I N ) 

CALL PLOT 3 ( IHa, TIME ( 1 ) ,UW2 l 1 ) »N) 

CALL OMIT (1) 

CALL FPLOT4 (41.41H <v c 1 o n T I H P o u N D o 

WRITE ( 6 . 9o 1 o ) (BLKM(J) ,IBlaY( J) »J=1 ,12 ) 

WRITE ( 6 » 9o 1 1 ) 

500 CONT INUE 

CALL GOODE 


9000 FORMAT 

9001 FORMAT 

9002 FORMAT 
1 

2 

3 

4 


( 1H1 ,131 ( 1H*) ) 

(IX, 131(1 H*)) 

(1X.34H* PREDICTION ANALYSIS TlCHNIUl/E * ,oA6. IX, 1H*. 

2oH CAoE NUMulR * oaTl «6X » A6 » A2 « 1 ori * Kcu/UlKEo ouYoFF. 
6X.1H* / 3H » 29 l 1 ri" ) » 3H * » 6 a 6 » 2 H * » i 3X , 1H* ♦ 2 lX , lrt* » 1 

6X.7H LB * / 3H * .4Ao.yA.Sn , 6 A 6.2H *»3A,I/»oA, 

ISn* INPUT TaPE .Ab.A2.25H * loiu I V AL Ln I o/C uK L/V* / 
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5 

6 

°004 FORMAT 
1 
2 
3 
A 
b 
6 

9010 FORMAT 

9011 FORMAT 
1 

c 

END 


19H * COMPUTER PR Ob RAM .3X.A3.7X.3H * *6A6*2H *»13X» 

17H*. FILE STATUS NO. .I4.12H * DEFICIT .6X.7H Lb * 

(1X.34H* PREDICTION ANALYSIS TECHNIQUE * .6A6. IX. 1H*. 
20H CASE NUMbtR * DATt .6X.A6.A2.18H * REQUIRED oUYUFF , 
6X » 1H* / 3H * . 29 ( 1H* ) . 3H * .6A6.2H * . 1 3X , 1H* . 2 1 X . 1H* . 1 

6X.7H LB * / 3H * .AA6.SX.3H * .6A6.2H * , 3X , lhu . I 6 . 3X . 

13H* INPUT TAPE .A6.A2»2bH * tQUI VALENT o/C UR L/V* / 

1 9H * COMPUTER PKOuK AM • 3X • A 3 . 7X . 3H * .6A6.2H *.13X. 

17H* FILE STATUS NU. .I4.12H «• DcFlCIT .6X.7H Lb * ) 

(9X.12IA3.iX.12.2X) ) 

(48X.27HT I M t IN MONTHS /12X. 

2 1 h x = observed weight .5ux.2uh*** histdry plot *** ) 
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TITLING SUBROUTINE - 62S (TITEL) 

This subroutine is available to each program that requires automatic title generation 
from the case number. 

The subroutine breaks up the case number into four parts - 

(06 J 11 1 2 J 36). 

Each part is used in a series of table lookups to generate one line of titling for tabular 
output. Upon return from the subroutine, the case title is stored in the labeled COM- 
MON block /ZEE/Z1(6), Z2(6) , Z3(6), Z4(6) with one line of titling stored in each of 
the arrays Zl, Z2 , Z3, Z4. 

Control over this routine is maintained by the calling program. 

Case Identification Number and Title List 

The seven-digit number used to identify specific items for which weights are tabulated 
is also used to provide titles for computer printouts. These titles have been revised 
as of September 28, 1965, and are to be used for all titling until a further revision 
(now in preparation) is issued. The revised title list is as follows: 



Reference No. 

Issue Date 

Supersedes 


62.0.1 


23 Dec 1< 
13 August 11 


Case Identification Number and Title List 


First Two Digits 

3rd and 4th Digits 

5th Digit 

6th and 7th Digits 

Class and Serial 


Mission Phase 


Number of Vehicles 

Stage or Module 

and Time 

Functional Code 

51 = Saturn V Launch 

00 - Launch Vehicle 

0 = (Blank) 

00 = (Blank) 

Vehicle SA-501 

Payload Capability 

1 = (Blank) 

03 = Structure -Stage 

52 = Saturn V Launch 
Vehicle SA-502 

10 = S-IC Stage Dry 

2 = (Blank) 

04 = Propulsion System 

53 = Saturn V Launch 

11 -- S-IC Stage at 
Separation 

3 = (Blank) 

06 = Equipment and 
Ins trumentation 

Vehicle SA-503 

20 = S-IC/S-II Interstage 

4 = (Blank) 

07 = Residual and Reserve 

56 = Saturn V Launch 
Vehicle SA-504 
& Subs 

54 = Saturn V Launch 

at Ground Ignition 

22 = S-IC/S-II Interstage 
Ground Ignition 
(2nd Vehicle) 

5 = (Blank) 

6 = (Blank) 

7 = (Blank) 

Propellant 

08 = Aux. Propellant- 
Power Roll 

Vehicle SA-504 

55 = Saturn V Launch 
Vehicle SA-505 

l 

30 = S-II Stage Dry 

31 = S-II Stage at 

Separation 

8 = (Blank) 

9 = (Blank) 

09 = Ullage Rocket 
Propellant 

57 l 

40 = S-II/S-IVB Interstage 



\ etc . 

at Ground Ignition 



69 J 

50 = S-IVB Stage Dry 

51 = S-IVB Stage at 




Separation 




60 = Instrument Unit 




61 = Instrument Unit 




at Ground Ignition 



21 = Saturn IB Launch 

00 = Launch Vehicle 

Same as above 

Same as above 

Vehicle SA-201 

Payload Capability 



22 = Saturn IB Launch 

10 = S-IB Stage Dry 



Vehicle SA-202 

11 - S-IB Stage at 



23 = Saturn IB Launch 

Separation 



Vehicle SA-203 

20 = S-IB /S-IVB Interstage 



24 = Saturn IB Launch 

at Ground Ignition 



Vehicle SA-204 

50 = S-IVB Stage Dry 



25 = Saturn IB Launch 
Vehicle SA-205 

51 = S-IVB Stage at 
Separation 



26 = Saturn IB Launch 

60 = Instrument Unit 



Vehicle SA-206 



27 = Saturn IB Launch 
Vehicle SA-207 

61 = Instrument Unit 



at Ground Ignition 



,28 "I 




/ “°- 





39 










Reference No. 
Issue Date 


62.0.2 

23 Dec 1965 

Supersedes 13 August 


Case Identification Number and Title List (Cont.) 


First Two Digits 

3rd and 4th Digits 

5th Digit 

6th and 7th Digits 

Class and Serial 


Mission Phase 

Number of Vehicles 

Stage or Module 

and Time 

Functional Code 

01 = Block I Spacecraft 
Mission 501 

00 = Total Spacecraft 

0 = (Blank) 

00 = (Blank) 

02 = Block I Spacecraft 

10 = LEM Ascent Inert 

1 = At Liftoff 

01 = Crew Systems 

Mission 502 

11 = LEM Ascent 

2 = (Blank) 

02 = Stabilization and 

03 = Block II Spacecraft 

12 = LEM Ascent Total 

3 = (Blank) 

Control j 

Mission 503 

20 = LEM Descent Inert 

4 = At Injection 

03 = Structure 

04 = Block II Spacecraft 
Mission 504 

21 = LEM Descent 

22 = LEM Descent Total 

5 = At Injection 

6 = (Blank) 

04 = Propulsion System 
06 = Navigation and 

05 = Block II Spacecraft 

30 = LEM Gross 

Guidance 

Mission 505 

7 = At Burnout 

08 = Propellant-Useable 

06 = Block II Spacecraft 
Mission 504 & Subs 

40 = Spacecraft Adapter 
50 = Service Module Dry 

8 = (Blank) 

9 - At Burnout 

11 = Earth Landing 
System 

07 = Block II Spacecraft 

51 = Service Module 


13 = Ballast Installation 

Mission 507 

Inert 


Provisions 

08 ^ 

52 = Service Module 


14 = Propulsion System 

> etc. 

Gross 


Jettison 

19 J 

60 = Command Module 


16 = Environmental 


Dry 


Control System 


61 = Command Module 


17 = Reaction Control 


62 = Command Module 


(Useful Load) 


Gross 


21 = Controls and 


67 - Command Module 


Displays 


Gross 


23 = CM Boost Protective 


70 = Launch Escape 


Cover 


System 


24 = Propulsion System 


71 = Launch Escape 


Jettison Motor Skirt 


System 


26 = Instrumentation 




27 = Electrical Power 

71 = Block I Spacecraft 

Mission 201 

72 = Block I Spacecraft 

Mission 202 

73 = Block I Spacecraft 

Mission 203 

74 = Block I Spacecraft 

Mission 204 

75 = Block I Spacecraft 

Mission 205 

76 = Block I Spacecraft 

Mission 206 

77 = Block II Spacecraft 

Mission 207 

Same as above 

Same as above 

(Useful Load) 

31 = Scientific Equipment 
(Useful Load) 

34 = Propulsion System 
Pitch Control 

36 = Electrical Power Sys. 

37 = Environmental Con- 

trol (Useful Load) 

41 = Landing Gear 

46 = Reaction Control Sys. 

47 = Main Propulsion 

(Useful Load) 

56 = Communications 

57 = Crew Systems 

78 



(Useful Load) 

> etc. 



66 = Separation System 

99 J 



67 = Ballast 

76 = Propellant Dispersal 




System 
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Flip Subroutine 
Strips Digits 
from 7-Digit 
Case Number 



On On 














Reference No. 
Issue Date 


$ I OFT C TITEL L 
SUBROUTINE 


1ST. REF 

titel (LCASE.MA^M 


COMMON /Ztt/ ZL I NET 16) * ZC I NE2 l 6) *ZLINE3(6) .ZLINEM 6) 


DIMENSION 


DIMENSION 

C 

C *** tables OF 
C 

DATA FTD / 

1 

2 

3 

A 

5 

DATA TFDl 

1 

2 

3 

4 

DATA TFD2 

1 

2 

3 

A 

5 

6 

DATA TFD3 

1 

2 

DATA TF D4 

1 

2 

3 

4 

5 
b 

7 

8 
9 

DATA TFD5 

1 

2 

3 

4 

5 

6 
7 


MCI (46) »MC2 (46) »' V 'C3 (46) »MC4l 46 ) »MC6l 10) . 

MC8 (10) *MC9(46 ) » F TO ( 36 ) * TFU1 ( 30 ) . TFD2 < 42 ) . 
TFD3( 1«) ,TFD4(60) » TF05 1 48 ) » I DOT 1 1 0 ) . JT AB l 46 ) * 
FID (60) .SSD1 <42 ) »SSD2<60 ) ,SSD3 (60) .SSD4I 54) 
MASK. ( 7 ) 

TITLES 

36HSATURN V LAUNCH VtHICLE SA- , 

36HSATURN 16 LAUNCH VtHICLc SA- , 

36HBL0CK I SPACECRAFT MISSION , 

36HBLOCK II SPACtCRAFT MISSION , 

36HSAT V LAUNCH VtHICLE SA- + SUBS, 
36HBLK II SPACECRAFT MISSION + SUBS/ 

/ 36HLAUNCH VEHICLE. PaYLOAO CAPABILITY , 

36HS-IVB STAGE DRY , 

36HS-IVB STAGE AT SEPARATION , 

36H INSTRUMENT UNIT , 

36HINSTRUMENT UNIT AT GROUND IGNITION / 

/36HS-IC STAGE DRY , 

36HS-IC STAGE AT SEPARATION , 

36HS-I C/s- 1 I I NT c-RSTAGt AT GRND IGNIT , 

36HS- 1 C/S- 1 I I NT L Rs T AGE OR Iu (2ND VtH)» 
36HS-I I STAGE DRY , 

36HS-II STAGE AT SEPARATION , 

36HS-I I/S-IVB INTERSTAGE AT GRND IGNIT / 


36HS-II STAGE AT SEPARATION 
36HS-I I/S-IVB INTERSTAGE AT 
/ 36HS- I B STAGE DRY 
36HS-IB STAGE AT SEPARATION 
36HS-IB/S-IVB INTERSTAGE Al GRND IGNIT 
/36HT0TAL SPACtCRAFT 
36HLEM ASCENT INERT 
36HLEM ASCENT 
36HLtM ASCtNT TOTAL 
36HLEM DESCENT INERT 
36HLEM DESCENT 
36HLtM DESCENT TOTAL 
36HLEM GROSS 
36HSPACECRAF T ADAPTtR 


36HSERV I< 


MODULt 


/36HSERV ICE MODULE 


DRY 

INERT 


36HSERV ICE MODULt GROSS 
36HCCMMAND MODULE DRY 
36HCCMMAND MODULE 
36HCOMMAND MODULL GROSS 
36HC0MM AND MODULL GROSS 
36HLAUNCH LSCAPt SYSTtM 
36HLAUNCH LSCAPl SYSTEM 


Oc~-4C N U'-P'OJ(V)»— ' v£) OC -si O' V; - ' H vOO)-slC'VT-f'UN;H (> Ui 4^ U) Nl 


Reference No._ £2.3 

Issue Date 23 Dec 1965 

Supersede s 13 August 1965 


DATA 

FID 

/ 3 6H 


1 


36HAT 

liftoff 

2 


36H 


3 


36H 


A 


36HAT 

INJECTION 

3 


36HAT 

INJECTION 

6 


36H 


7 


36HAT 

bURNQUT 

d 


36H 


9 


36HAT 

BURNOUT 

DATA 

SSD 1 

/ 36H 


1 


36HSTRUCTURE-STAGE 


36HPR0PULS I ON SYSTEM , 

36HEQU I PMENT AND INSTRUMENTATION , 

36HRESIDUAL AND RESERVE PROPELLANT , 

36HAUX. PROPELLANT-POWER ROLL , 

3 6HU LL AGE ROCKET PROPELLANT / 

SSD2 / 36H » 

36HCREW SYSTEMS > 

36HSTADILIZATION AND CONTROL , 

36HSTRUCTURE , 

36HPROPULS I ON SYsTEM , 

36HNAVIGAT I ON AND GUIDANCE , 

36HPROPELLANT-USEAbLE . 

36HEARTH LANDING SYSTEM , 

36HBALLAST INSTALLATION PROVISIONS , 

36HPROPULS I ON SYSTEM JETTISON / 

DATA SSD3 / 36HENVR I ONMENT AL CONTROL SYSTEM . 

36HREACT I ON CONTROL (USEFUL LOAD) » 

36HCON T ROLS AND DISPLAYS > 

36HCM bOOsT PRuTlCTIVl COVsR > 

36HPROPULS I ON 0 Y 0 JlTTIsON MOTOR SKIRT , 
36HIN STRUM lNTATIoN » 

3 6HEL EC TR I C A L POWER (USEFUL LOAD) , 

36HSC I lNT 1 F I C Lou 1 PMENT (USEFUL LOAD) , 
36HPROPULSION SYjTEM PITCH CONTROL , 


36HELECTR I CAL POWER SYSTEM / 

DATA SSDA /36H ENVIRON MENTAL CONTROL (USEFUL LOAD) . 


DATA I DOT 
DATA JTAB 

1 

2 


36HLAND I NG GEAR » 

36HREACT I ON CONTROL SYSTEM , 

36HMAIN PROPULSIuN (USEFUL LOAD) , 

36HCOMMUN I CAT I GNs . 

36HCREW SYSTEMS (JStFuL LUAD) * 

36HSEPARAT I ON SYSTEM , 

36HBALLAST . 

36HPROPELLANT DISPERSAL SYSTtM / 

/l. 7, 13, 19,25,31*37, 43, 49, 35/ 

/0, 1,2. 3. A, 5. 6. 7, 8. 9, 10. 1 1 » 1 2 , 1 3 . 14 , 16 , 1 7 , 20 » 2 1 . 22 . 
23, 24 ,26.27. 30*31. 34. 36.37, 40 ,41 ,46 ,47,30*31*32, 
56,57,60,61, 62, 66,67,70,71, 76/ 


DATA MCI / 1 , 0,0, 0.0, C.O, 0.0,0, C.Q.O.C.O, 0,0, 0,0, 0,0.0, 0,0,0. 

1 C, 0,0, 0,0, C.O, 0,7.13, 0,0, 0.19.25, 0.0, 0,0, 0,0/ 

DA T A MC2 /0»0»U,0»0»b,0,U,b»0,l,7»b»0«0»u,U»13»U»19»0»U»u,u,23, 



r\ n r\ 
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1 3liU*(j»U»37»0>'J»UiU»UiU)WtO»U)Uiw»U)Utuiu>0/ 

DATA MC3 /U*0*G»o*U*O»0*0*'J*u*l»7*'J*O*g*0*o*13*0*0*O*0*U*U*U* 

1 0»0*0*0*G*C*Q*0*o»j*0*0*utO*ij>o*o*0*0»G*0/ 

DATA MCA /l»U»u*Q*0*0*Q*0*U*Q*7»13»19*G*Q»0*U»25*31*37*0*0*Q*o*43* 
1 C>0* 0*0*49* 0*0*0*55*1*7 *0*0 *13*19*25*0*31 *37*43*0/ 

DATA MC6 /1>7»13*19>25*31*37,43*49*55/ 

DATA MC3 /l»o,G*7» 13*0*19*25,31*37/ 

DATA MC9 /1*7*13»19*25> 0*31*0*37*0*0*43*0*49*55*1, 7*0* 

1 13*u»19,25*bl*37*0*43*49*55*l>0>7*13>19*0*G*G* 

2 25*31*0*0,0*37*43 *0*0*49/ 

DATA I ON E * 1 T w U * I T HR L E * I FOUR * 1 F I VE * I SIX > I SEVEN /i* 2*3*4, 5*6*7/ 
DATA BLANK / 6H / 

DO 100 NN 1=1*6 
ZLlNEl(NNl) = BLANK 
ZLINE2CNN1) = BLANK 
Z L I N E 3 ( NN 1 ) = BLANK 
100 ZL2NE41NN1) = BLANK 
JCODE = 0 


*** ROUTINE FOR FIRST AND SECOND DIGIT 


IA = 0 
16 = LCASb 

CALL FLIP ( I A * I B * I ONE ) 

ISAVE = IA 
IA = IA + 1 

GO TO (221 *s21»222 *222 *300*223 >223 *22^*224*^24) > IA 


221 

ICODE = 4 
GO TO 225 






222 

ICODE = 2 
GO TO 225 






223 

ICODE = 1 
GO TO 225 






224 

ICODE = 3 






2 25 

IA = C 







CALL FLIP (IA.IB.l TWO) 






IF (IA .LO. 6 • AND. 

I S A Vl 

• EQ* 

3) 

JCODE 

- 5 


IF ( I A .ECJ. 6 .AND. 

ISAVE 

• E Q * 

0) 

JCUDE 

= 6 


IF (IA • 0 E • 7 .AND. 

IGAVL 

• GE • 

7) 

1 CUDL 

= 4 


IF (IA • EQ * I .AND. 

ISAVE 

• EQ • 

0) 

I CODE 

= 3 


IF ( I A .EG. 2 .AND. 

ISAVE 

.EQ. 

01 

l C'jQl 

= 3 


GO TO (251*252*252* 

251 ) , IC 

ODE 




251 

IBC = 5 Gw 

IF (IA #vjl. 7 • A N o • 
GO TC 253 

ISAVl 

• oL • 

7) 

IbC = 

2 00 

252 

IBC = 200 

IF ( I A • lQ • 1 .AND. 

ISAVE 

• EQ. 

0) 

IdL = 

500 


IF (IA • EO • 2 • A No • 

ISAVE 

• EQ. 

0 ) 

IbC = 

500 

253 

I A 1 = IA 







IF (ISAVE . lO. o .AND. IA 

• EQ. 

6) 

I A 1 = 

4 


IF (ISAVE .EQ. 5 .AND. IA 

• E Q . 

6 ) 

I A 1 = 

4 


IBC = IBC + I A 1 



o n n n 
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IF (MASK.ll) .EQ. 0 .AND. MASK12) .EQ. 0) 00 TO 275 

60 TO ( 256 . 258 .260 » 262 ) * ICODE 

256 IF 1 JCODE .to. 5) 60 TO 257 

IBEG = 1 

NNC = 18 
NND = 18 
GO TO 264 

257 IBEG = 25 
NNC = 12 
NND = 18 
GO TO 264 

258 IBEG = 7 
NNC = 24 
NND = 12 
GO TO 264 

260 IBEG = 13 
NNC = 18 
NND = 18 
GO TO 264 

262 IF (JCODE .EQ. 6) GO TO 263 
IBEG = 19 

NNC = 24 
NND = 12 
GO TO 264 

263 IBEG = 31 
NNC = 12 
NND = 18 

264 DO 265 MAM= 1.6 

ZL I NEll MAM) = FT D l IBEG) 

265 IBEG = IBEG +1 

CALL INDIFt ( NNC . NND . Z L I NE 1 l 5 ) » I BC . Z I LCH ) 

IF (IBEG .ED. 13 .OR. IBEG .fc(J. 25) ZLINE116) = ZILCH 

*** ROUTINE FOR THIRD AND FOURTH DIGIT 


2 75 I A = 0 

CALL FLIP (IA.IB.I THREE ) 

IF (ISAVE .LT. 2 .OR. ISAVE ,uT. 6) GO TO 284 
IF (IA .LT. 1 .OR. IA ,GT. 4 ) Go TO 280 
KCODE = 2 
GO TO 286 
280 KCODE = 1 
GO TO 286 
C 

2e4 KCODE = 3 
286 CONTINUE 

I C = I A * 10 
IA = 0 

CALL FLIP ( I A. IB . I FOoR ) 

IC = IC + IA 

IF (MASM3) .no. -J .mN D. MAoK(4) .lJ. 0) uG TO 3u4 
DO 29u MM = 1 « 46 


nnonn no 
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IF (IC .EQ. JTAB(MM) ) GO TO 292 
290 CONTINUE 
GO TO 304 

292 GO T ( (293,295,299) .KCODE 

293 IF (MCl(MM) .EQ. 0) GO TO 304 
INDEX1 = MCl(MM) - l 

DO 294 MN = 1.6 
JNDEX = INDEX1 + MN 

294 ZLINE2(MN) = TFD 1 ( JNDEX ) 

GO TO 304 

295 IF (ICODE .EQ. 2) GO TO 297 
IF ( MC2 ( MM) .EQ. 0) GO TO 304 
INDEX1 = MC2IMM) - 1 

DO 296 MN = 1 .6 
JNDEX = INDEX1 + MN 

296 ZL I NE2 ( MN ) = TFD2 ( JNDEX ) 

GO TO 304 

297 IF (MC3IMM) .EQ. 0) GO TO 304 
INDEX1 = ,MC3(MM) - l 

DO 298 MN= 1 , 6 
JNDEX = INDEXl + MN 

298 Z L I N E 2 ( MN ) = TFD3 ( JNDEX ) 

GO TO 304 

299 IF ( MC4 ( MM ) .EQ. 0) GO TO 304 
INDEXl = MC 4 ( MM ) - 1 

DO 300 MN=1 .6 
JNDEX = INDEXl + MN 
IF (MM .GT. 34) GO TO 301 
ZLINE2IMN) = TFD4 ( JNDEX ) 

GO TO 300 

301 ZL I NE2 ( MN ) = TFD51JNOEX) 

300 CONTINUE 

304 CONTINUE 

«** ROUTINE FOR FIFTH DIGIT 
IA = 0 

CALL F L I D ( IA.Ib.IFIVE) 

IF ( MASK ( 5 ) .EQ. 0) GO TO 309 
DO 305 MO= 1 » 10 

IF (IA .EQ. JTAB(MO)) GO To 306 

305 CONTINUE 

306 IF ( ICODE .lU. 1 .OR. ICOOu .LO. 2) GO Tu 309 
IF ( i C 6 i MO ) .EQ. ) GO TO 309 

INDEXl = MC6 ( MO ) - 1 
DO 307 MP=1,6 
JNDEX = INDEXl + MP 

307 ZL I NE3 ( MP ) = F I D ( JNDEX ) 


*** ROUTINE FgR SIXTH AND SEVENTH DIGITS 


309 I A 


0 


o r\ o 
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CALL FLIP ( 1 A* IB. ISIX ) 

I E = I A * 10 
IA = 0 

CALL FLIP ( IA. IB. I SEVEN ) 

IE = IE + IA 

if ( mask ( 6 i .to. j .and. mmuk( 7) .tu. o> bo to joo 

DO 310 MM=1»46 

IF (IE . EQ . J TAB (MM)) GO To 312 
310 CONTINUE 
GO TO 500 

312 IF ( 1 COOL .lu. 3 .or. icodl .to. 4) GO To 320 
IF (It: . o T . 9 ) GO TO 500 

315 IF ( MC 8 ( MM ) .EG). J) GO TO 50C 

INDLX1 = MC8 ( MM ) - 1 

DO 316 MN = 1.6 
JNDEX = INDEX1 + MN 

316 ZLINEMMN) = SSD 1 ( JNDEX ) 

GO TO 500 


320 

IF 

(IE .GT • 

76) 

GO TO 500 

324 

IF 

(IE .Lt. 

76) 

IZIP = 3 


IF 

(IE .Lt. 

36) 

IZIP = 2 


IF 

(IE .LE. 

14) 

IZIP = 1 


IF 

( MC 9 ( MM ) 

• t Q . 

V) GO TO 


INDEX1 = MC 9 ( MM ) - 1 
DO 336 MN = 1.6 
JNDEX = INDEX1 + MN 
GO TO ( 332 .333.334) , IZIP 

332 ZLINEMMN) = SSD2(JNDEX) 
GO TO 336 

333 ZLINEMMN) = SSD3 ( JNDEX ) 
GO TO 336 

334 ZLINEMMN) = SSOMJNDtX) 
336 CONTINUE 


500 RETURN 
END 



Reference No. 62. 6 

Issue Date 13 August 1965 
Supersedes New 


SIBFTC FLIP LlSTtREF 

SUBROUTINE FLIP (I *J»K) 
I 0 1 V = (10**(7-K) ) 

IC = J / I D I V 
J = MOD ( J* I D I V ) 

I = ( I * 10 ) + I C 

RETURN 

END 
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$1 bMAP 

INDIFE 

LIST, REF 


ENTRY 

INDIFE 

I NDIFc 

SAVE 

1 *2.4 


CLA* 

3,4 


STO 

GOO 


STA 

SHF T1 


CLA* 

4,4 


STA 

SHFT2 


STA 

SHFT3-1 


ADD 

GOO 


STO 

GOO 


CLA 

= 36 


SUB 

GOO 


STA 

S HF T 3 


ZAC 



LDQ* 

6 » 4 

SHFT1 

LGL 

** 


SL'rt 

SAVEA 


STQ 

SAVEM 


CLA* 

6,4 


LRS 

2 


AX T 

6,1 


VDP 

CONST + 6, 1 ,6 


T I X 

*-1,1,1 


ROL 

18 


CAL 

savla 

SHFT2 

LGL 



SLW 

SAVEA 


STQ 

GOO 


CAL 

GOO 


TZE 

ZOOM 


CRA 

=0006060606060 


TRA 

* + 2 

ZOOM 

CAL 

- H 


SLw * 

7,4 


CAL 

SAVLA 


LDQ 

SAVEM 


RQL 

* * 

SHFT3 

LGL 

* * 


S L a * 

b , 4 

ER 

RETURN 

I N LIFE 

GOO 

BSS 

1 

5 A VTA 

CSS 

1 

SAX 

B So 

1 

CONST 

DEC 

lE t jo31,lt-AG4:6*lc'3oiy,lL < iL3lji,iEld7,iDl 


END 
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The Summing Program performs a summation on the predicted weights of each func- 
tional system which comprise a given stage, module, spacecraft or launch vehicle. It 
is possible to sum any group of functional systems as long as every member of that 
group has a case number in which one or more of the leading digits are identical. That 
is, we could sum the predicted weights for all functional systems having the first four 
digits of 2211 (i. e. , representing the Saturn IB Launch Vehicle SA-202, S-IB stage at 
separation) or we could sum the predicted weights for all functional systems having the 
first two digits of 22 (representing the Saturn IB Launch Vehicle SA-202), etc. It is 
assumed that the trend prediction programs have been executed and there is available 
as input, the four binary data files representing the linear, nonlinear, Fourier, and 
logistic modes. 

INPUT 

For each stage, module, launch vehicle, or spacecraft to be summed, there is re- 
quired the following set of cards: 

CARD A 

To sum a typical group of cases, you need a general case number which is a 7-digit 
number and a mask number which is a number between 1 and 7. The mask number 
tells the program the number of digits to sum on. The remaining digits on the left 
(7 - mask number = MN) will be the first MN digits which all of the summed functional 
systems will have in common. For example, an extreme general case number of 
0000000 with a mask number of 7 would sum all of the functional systems on the tape. 
A general case number of 5650100 with a mask number of 7 would sum all of the func- 
tional systems whose case number are greater than or equal to 5650100. A more 
practical example would be a general case number of 5650100 with a masknumber of 4. 
This would sum all of the functional systems starting from 5650100 to, but not includ- 
ing, 5660000. Another example would be a general case number of 0640000 with a 
mask number of 3. This would sum all of the functional systems starting from 0640000 
to, but not including, 0641000. 
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The mask number has a second purpose, which is to create a masking index for the 
Titel Program which will, in turn, generate a general title for the applicable sum- 
ming run. 

The first item of information on Card A is the general case number. The next item of 
information to be included on this card is an indication of which prediction mode (lin- 
ear, nonlinear, Fourier, logistic) will be used in the majority of the functional systems 
to be summed. Thus, if some particular module is composed of six functional systems 
and it has been decided to use the nonlinear mode for summing in four of the six cases, 
then the nonlinear mode would be so indicated on this card. The following code is 
used to make the above indications: 

1 Linear mode 

2 Nonlinear mode 

3 Fourier mode 

4 Logistic mode 

The summing program will sum the predicted weights from the last observed weight 
out to the shipping date weight. Thus, if some functional system is not current, the 
summed weights will be in error, since the program sums from the last observation 
and does no checking of dates. The third and fourth pieces of information appearing 
on Card A are the current date of the latest observation (e.g. , 9 1965). 

The final piece of information is the mask number followed by an asterisk (*). 

Thus, a typical Card A would appear as 

| Columns 7 — 72— 

5650100 2 9 1965 2 * 


CARD B 

For each functional system that is not to be summed in the mode specified on Card A, 
a type-B card is required. Two options are available: 

a. The user may specify a prediction mode other than the one specified on 

Card A. In this case, all that is required is the case number of the functional 
system, the desired mode to be summed, and the word TREND. 

| Columns 7 — 72— | 

5650103. 4. TREND 
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b. The user may specify that a line with constant slope be summed, rather than 
one of the four trend prediction lines. In this case, it is necessary to give 
the case number of the functional system, the desired weight at the last ob- 
servation, and the desired slope of the line. The slope may be positive, neg- 
ative, or zero. 


►Columns 7 — 72- 
5650106. 629. -5. 


NOTE 

All numbers punched on the B-Card will be punched with decimal point. 


CARD C 

If the word END is followed by an asterisk (punched in Columns 7 - 72), the card signi- 
fies the end of summing for the particular general case number specified on Card A. 


NOTE 

1. Card A and Card C are required whenever a sum is desired. 
Card B is optional. If Card B is not present, all functional 
systems will be summed in the mode specified on Card A. 

2. Each set of A, B, and C Cards must appear in ascending 
order by general case number. 

3 . The last data card in the summing deck contains the words 
END OF SUMS followed by an asterisk. When this card is 
encountered, control is returned to SPACE. 


EXAMPLE OF A DATA DECK 


5650100 1 

5650103 2. 

5650106. 29. 

END * 


9 1965 2 

TREND 

3. 





Sums all functional systems (whose case 
numbers have the first five [7 - mask 
number, 7-2] digits 56501) in linear 
mode; except 5650103 on which the non- 
linear mode is used, and 5650106 on 
which an arbitrary line with a slope of 3 
is substituted. 


7470000 3 9 

END * 

END OF SUMS * 


1965 4 * I Sums all functional systems (whose case 

\ numbers have the first three (7- mask 
I number, 7-4) digits 747) in the Fourier 
I mode. 
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OUTPUT 


Output consists of a printed tab which contains the sums of the functional system for 
each stage or module. An example is given on the following page. 
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SUMMING PROGRAM * A T BURNOUT * 0 6 H y OO * * EQUIVALENT S/C 

COMPUTER PROGRAM 63S * * * * UEFICIT 


Reference No. fin i 

Issue Date 23 r>en i flfis 
Supersedes ntpiw 


* * * * * * 


* d • 

«OJ c 

* ►— cr 

* < o 

* — * u 

* O XI 

* O I 

$ X 


* ~ c/> 

* Hi o 

* X I 


I tO X 
r Ul til 

> CO X 


ILO t+> *'C<TCVJClE'C'<r W C © <J - 

i- iuo a'M'O^r n 'ft o n » -> > 3 , 
I WO jopororo'oi'oroporoforo'v" 

(3 < rC t «4 *4 rl ^ •< H r4 i 

—> r* 


) C « 1 

I ’O ♦ ll 

• c ' 


: jo c ’ 

NT ' 


LU 


*0 * 


- .0 

* • * * 


i a ill 

X O Z 
* O-. 
~ I _> 


* 

t- ♦>'ONHJ\>'ONH|fi»'ON T H^JONOOt»i'\l'00 
O * r 4 HM(VM^“l'r^'T[f\J»» 0 ' 0 >Or'NOOB ®000 

< * w 

* 

_> * ^ N H 3 t N r> <fMHO>i'Ori'O.M30NCir*)rtO 
-< *K)FOrtWN(VN(MW(Mr<r<Hr4HHW 
O « 

ON t WO F^JWINJO^trkPVSP^XNCVO 

* (ft tft in T t ♦ »OW K) fO W fM (MOJ OJ *< rlHH 

* 


*<►<►000000000000000* 0*»»XC OC fN 
* * » OtMfO ♦ 1 ft 0 N 30 »OHftJI 0 *^lft' 0 NB(>Or) 
**^*-»(\jc\ic\ic\it\ic\JC\jc\jc\jrof'Oro!"Of-oro w ro w row v t 
* ji>iniAif»iALt>ifN uMrca>mir\incr»u>inu> cr\ ir> m m ire ir\ ir» 


* x 

* 

<■ * 


* 

• Z XI *Nffl^OH(\imVift>CN®^Orl<M!OVlft-ON®ao 

1 o Z *v-*»H»-»tMC\*0VJf>J<\JCMCMt\JCMC\(roroPON , Jr«r)K>POrO^fO^- 
j — *— * irirv \rir\ it if\ir uNX-vr*ir> l r>vr. k rir\mir>aNir.uNiririr\ir 


©iricririT'C'O'C 'C'0'0 '£*cO'C'0'Cnnnnnnnn 
»< 0'0'0^C'0'C*C'0e0e'0'0'0'0'0'0o>0'0e'0'C 


< * ik>U 2 m cr 


3 *oj uom< i 


■ >- z jc 3 i>->oz ® cr cr ► z _i cjj 


I -* Q_ •« 33 Di 


M 1*033 


* CO <3 Z Q 3 U_ X <4 X -> _ >"*fcDOZQ 3 U.X'«X 3 - >-« 


e « * * * 

* 

* LU CO LU 
* 01 - 0 ) 
X < 


. t- o * — 1 


C3 OC Z Z O Z Z Z Z Z 
o a: _» _i o — ■ 

-J < Z Z _l -X Z Z _1 _l 


tOXiO •^-tCurO^^J'C^'C'C'O'C 
, I *OOOOOHCMCMW*»ift 

) UJ It— *OO'O'OO0'O'O<*OO 
: an *— c * h whHtH HHriHHrt 

• X X O rCrlrl^rlrtrlrtHHH 

3 Z X ** 00 > 0 ' 0 > 00 ' 00 ' 0 > 0*0 
Z — 3 * 


««** * * * » 


Reference No. 


63.2 


Issue Date 23 Dec 1965 
SnpprspHes 13 August 1965 



Output of 
Summing 
Results 
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SItiFTC SUKING LIST, REF 

COMMON /GGDATE/DATE ( 2 ) 

COMMON / Ztt/ ZLINEl (6 ) »ZL1 NE2 l 6) »ZL 1 imE3 ( 6 ) »ZLl NE4( 6 ) 

COMMON /ACCESS/ HC ( IOC ) * WDCT , I D ( 12 ) , PROG 

COMMON /SYSTEM/ N T AP ES ♦ R EE Li ( 1 5 ) , CNT RLS ( 1 5 ) * F I L E S ( 1 6 ) , LKa ( i 6 ) , 
1 POS ( 15 ) * T RLPOS ( 15 ) ,RWCNT (15)»UNITo(15) 


COMMON /PFILE/ NF YL E ( 4 , 3 00 ) , NFY ( 4 ) 

COMMON / PPOG/ ACTUAL ( lQO ), CALC ( 100 ) ,EST ( 100 ) ,COM( 12 ) , 


1 

2 

3 

4 


1 


LSQR (100) , MEAN ( 100 ) ,MCONF (1G0)*U*2(1'ju), 
MSQR < luu) , PCONF ( 1 GO ) »S 1 < 1 Ou ) » S2 ( 1 00 ) » 

T I ME ( 1 00 ) , WEIGHT ( 100 ) ,bUY ( 100 ) , T I TLE ( 9 ) » 

N , N TOT 

COMMON / ST T / N21 »D1 »D2 » J1RUN 
REAL MEAN 
INTEGER REELS 
INTEGER WDCT 

INTEGER GENCAS * E XC AS E , OL D T A p , XOC T , CAiENO 
INTEGER DOM( 3,25 ) ,MOM( 3,23 ) 

EQUIVALENCE ( TOM ( 1 ) , GENC AO ) , ( TOM ( 2 ) , I T APE ) , 

( TOM ( 3 ) , MONT H ) , ( T OM ( 4 ) , MY EAR ) , ( T OH ( 5 ) , MAoiLUu ) 

EQUIVALENCE ( HC (1) * I C 1 > , ( HC ( 2 ) * IC2 ) » < HC < 3 ) » I C3 > , ( ML ( 4 ) » I C4 ) 
EQU I VALENCE ( DOM , BOM ) , ( XOM,MUM ) 


DIMENSION T uM ( 5 ) , W T ( 1 Q 0 ) , XUM( 3,2 3 ) ,BOM( 3,25) ,NP ( 4) 
D I M E N S I ON i/. T A ( 1 0 o ) » w T C ( 1 0 u ) , v. I l l 1 0 u ) > w 1 M ( 1 u o ) 


DIMENSION XMJNTH1 12 ) , PNME(4) 

DIMENSION FMT ( 16 ) , SR I P 1 ( 8 ) >SKIP2 ( lu ) , F uMT ( 16 ) ,MAjn( 7 ) 
DIMENSION T YPE ( 5 ) ,HLAD ( 18 ) 

DIMENSION I WAdS ( 8 ) ,NdLN (18) ,NCAZ ( 8 ) 

DATA TYPE /3HLIN,3HNLim,3HFui\,3HluG»3HARd/ 

data ncax,ndlnk /4hcase,6h / 

Data F.TT /48H(1X»59H*SUMMATI0N* CAoE * DATl * lIaiE » L I im , 


data 

DATA 

1 

^ATA 

1 

DATA 

DATA 

DATA 

1 

2 

data 

DATA 

DATA 

data 


48 H £ * EST CAL ACI *» 1 ( 1 X , I 7 ) , 63X,1h#) / 

SKI PI / 4SH 1 ( 1 X , 2 ( 1 X , 3 ( 1 X , 4(1X, 5 ( 1 X , 6(1 X, 7 ( 1 X , 8(1X,/ 

SKIP2 /48H 6 3X , 55X, 47X, 3 9X, 31X, 23a, is a , 1 a , , 

6 H ,6H 7 1 X , / 

XiMUf.T H / 3 H J AN , 3 Hh c b » 3 Hi'-iAK , 3 n A P ia , 3Hi k iA Y , 3HU o i, , 3 H J , s H Aou , 



3 HjEP , 3H0CT , 3HNOV , 3 HULL/ 



PNMl 

/ 2 4 H SUMY. I WG PRulRAM 

/ 


PNO 

/ 3H63S/ 



HlAU 

/48H>HE r ULLl)’/i i i\ib AKbllKARY 

LA Jto M i M l/ 1 H l i k 

mo jJL i A 1 


•48HED WEIGHTS HAVc bttN 

1 2 H RECORD. / 

uocl) TO KLPlAOL 

I riUoL (JN 


trend/ 5ht rend/ 

I ON E / 1 / 

END/3HLND/ ,NP/1 , 1 , 1 , 1/ 
OF /2H0F/ ,SUMS/4HbUMS/ 


WRITE (6,9013) 

I F ( WDCT .EG. 0 ) GO TO 1 

NFY( 1 ) = I C 1 
NFY( 2 ) = IC2 




NFY( 3 )= IC3 
NFY ( 4 ) = I C4 
C 

1 CALL READH(TOM) 

I F C TOM ( 1 ) .EG. END .aND. TOi v l(2) .EG. OF .AND. TuM(3) .tw. SuMo ) 
1 CALL SPACE 

MYEAR = MOD ( MYEAR » 100 ) 

DO 60C I = 1,18 

600 NBLN ( I ) = NBLNK 

DO 601 I = 1,8 

NCAZ ( I ) = NBLNK 

601 IWABS(I) = 0 

DO 2 1=1,100 

WT ( I ) = 0, 

WTA ( I ) = 0. 

WTC ( I ) = 0. 

WT E C I ) = 0. 

W T M ( I ) = 0. 

2 CONTINUE 

DO 250 I = 1,7 

250 MASK ( I ) = 0 

DO 251 I = 1,16 

251 FOMT ( I ) = FMT ( I ) 

DO 253 I = 1,3 

DO 254 J = 1,25 

DOMli.J) = L 

XOM ( I , J ) = 0, 

254 CONTINUE 

253 CONTINUE 

I COUNT = U 

KK = 7 - MASKNO 
DO 3 I = 1 , K K 

MASK ( I ) = 1 

3 CONTINUF 

IF ( GENCAS .NE. 0 ) GO TO 4 

WRITE (6,10001) 

10001 FORMAT ( 1HO » 20X , 3 3HERROR - GENlRAL CASE NUMbEK = 0. ) 

CALL SPACE 

4 K = MASKNO 

CALL TITEL ( uENCAi ,MaSK ) 

CALL READH( XOM, IMAX) 

IMAX = IMAX / 3 + 1 
IMIN = IMAX - 1 
I GEN = IMAX 

CALL SORT (XOM, IMIN, 3,1 ) 

KGATE = 0 

41 KGATE = KGATE + 1 

EXCASE = XOM ( 1 , KGATE ) 

NTAPE = XOM<2, KGATE) 

IF ( XOM(3, KGATE) .LQ. TRLND ) XOM ( 3 » KGA T t ) = 9999999. 

IF ( XOM(l, KGATE) .EG, END ) EXCASe = 9999999 
38 NZL= ISIGN(NP( ITAPE) ,REELS( ITAPE) ) 
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I F ( NP ( I TAPE ) .GT. NFY ( I TAPE ) ) GO TO 6 
NF= REELS ( I TAPE ) #1000 + NZL 
CALL READS 1 ( NF * 1 ) 

CASENO* I D ( 7 ) 

NTEST = CASENO - GENCAS 

IF< NTEST .GT. 0. .AND. NTEST ,LT . (10**K) ) 

I F ( NTEST .GT. (10**K) ) 

AO NP(ITAPE) = NP(ITAPE) + 1 

I F t NP ( I TAPE ) .GT . N"YIITAPU) GO TO 6 
NZL= ISIGN(NP< I TAPE) ♦ REEL SI I TAPE) ) 

NF= REELSt ITAPE )*100u + NZL 
CALL READBl (NF.l ) 

CASENO = I L> ( 7 ) 

I F ( CASENO .LT. GENCAS ) GO TO 40 

5 I F ( CASENO .LT. EXCASE ) GO TO 10 

I F ( CASENO .EQ. EXCASE ) NP ( I T APE ) =NP < I T APE ) + 1 
6 IF ( XOM ( 3 » KGAT E ) .EQ. 9999999. ) GO TO 7 

IF ( XOM t 1 » KGAT E ) .LQ. END ) GO TO 9 
252 ICOUNT = I COUNT + 1 

DOM< 1 . I COUNT ) = EXCASE 
SOM( 2* ICOGNT ) = XOM (2. KGAT t) 

BOM ( 3 , ICOUNT ) = XOM ( 3 « KGAT c ) 

IF ( CASgNO .LQ. EXCASE ) GO TO 208 
JT APE = 0 

202 JTAPE = JTAPE + 1 

IF ( JTAPE .EQ. I TAPE ) GO TO 202 

IF ( JTAPE .GT. 4 ) GO TO 205 

203 NZL = ISIGN(NP( JTAPE) .REELS l JIhPE ) ) 

IF ( NP ( JTAPE) .GT. NFY (JTAPE) ) GO 10 202 
NF = REELS (JTAPE) * 1000 + NZL 
CALL READdI(NF.I) 

CASENO = I D ( 7 ) 

IF ( CASENu - cXCASL ) 2u4» 207* 202 

2 o 4 NP(JTAPE) = NP ( JT APE ) + 1 
GO TO 203 

205 NPLUSP = I D ( 11) + 1 
DO 206 I = 1, NPLUSP 
EST < i ) = 1 . 

CALC ( I ) =0. 

ACTUAL ( I ) = 0. 

206 CONTINUE 
N = 1 

GO TO 209 

207 NP( JTAPE) = NP( JTAPE) + 1 

208 NPLUSP = I D ( 10) + ID(ll) 

NT I M = 2 * NPLUSP + 9 

N = I D ( 1 0 ) 

CALL READS2 CNF » T I M ' ; » N T I M » H I S T R Y ) 

CALL REA062 ( NF , E oT , NPLUSP * H I S 1 RY ) 

CALL READ82 ( NF » CALC » NPLUSP » H I ST RY ) 

CALL READ62 ( NF , AC TUA L » NPL Jg P , H I S T R Y ) 

209 L =0 


GO TO 5 
GO TO 9 


non 
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DO 61 i =N»NPLUSP 
L = L + 1 

FLIGHT = XOM( 2 »K.GaTE ) + ( FLOAT ( L~1 ) * XUM ( 3 . kGA I t ) ) 

W T l L ) = WT(L) + FEIGFIT 

WTA(L) = WTA(L) + ( FLIGHT * ACTUAL(I) ) 

WTC(L) = WTC(L) + ( FLIGHT * CALC(I) ) 

WTE(L) = WTE(L) + ( FLIGHT * EST(I) ) 

WTK(L) = WTM(L) + FEIGHT 

61 CONTINUE 

XOM ( 2 » K.GAT E ) = 5. 

GO TO 41 

69 NP ( NTAPE ) =NP ( NT APE ) + 1 

7 NZL= ISIGN(NP(NTAPE) * REELS ( N TAPE ) ) 

I F ( NP(NTAPE) .GT. NFY(NTAPl) ) bu 10 79 
NF= REELS ( NTAPE )* 1000 + NZL 
CALL RE ADB 1 ( NF . 1 ) 

CASENO = 10(7) 

I F ( CASENO .LT. EXCASE ) GO Tu 69 
I F ( CASENO .EQ. EXCASL ) GO TO 8 

79 WRITE(6, 1001 ) EXCASC 

1001 FORMAT ( 1H1 . 6X12HCmSC NuNibtR I8.1X21H1S NOT UN TAPt. uM IT . ) 
GO TO 4] 

8 NP ( NTAPE ) =NP ( N TAPL ) + 1 
NPLUSP= I D( 10 ) + I D < 1 1 ) 

NT IM = 2 * NPLUSP + 9 
N=ID( 10) 

CALL R EADB 2 ( NF , T I ML » N T I M , n 1 S T R Y ) 

CALL R E A U o 2 ( NF , EST , NPLUSP » hi S 1 RY ) 

CALL RE ADb 2 ( NF , CALC .NPLUSP.H 1 G TRY ) 

CALL RE ADb 2 ( NF , AlTUAl , NPL uoP , n I S IRY ) 

CALL READB2 ( NF » BUY , N , H I STR Y ) 

call r e a d b 2 (NF.mean.nplusp.hisiry) 

N T I M = NT I M - 9 

CALL RE ADb 2 ( NF . MCONF ,N T I Ni > H I S T R Y ) 

CALL READ d 2 ( NF » JW 2 » NPLUSP » ri I S T RY ) 

L = 0 

DO 81 I=N» NPLUSP 
L = L+ 1 


W T ( L ) = 

W T ( L ) + 

UW 2 ( I ) 


W T A ( L ) = 

w T A ( L ) 

+ 

( U A 2 ( I ) 

* ACTUAL ( I ) 

WTC(L) - 

W T C ( L ) 

+ . 

£ U‘a 2 t I ) 

* CALC ( I ) ) 

\n TE ( L ) = 

A T b ( L ) 

+ 

( U‘.\2 ( I ) 

* EST ( I ) ) 

W T M ( L ) = 

WTM( L ) 

+ 

MEAN ( I ) 



81 CONTINUE 
GO TO 41 

9 IF (EXCASE .NE. 9999999 ) GO T 0 6 

COi^uITIOino CALCuLAT I ONo AitU HkIimI i\uu i I im 

DO <_ 6 0 I = 1.100 
IF ( WT( I ) .EQ. u. ) GO TO 261 
260 CONTINUE 



261 


262 

264 
2 6 5 

266 

267 

268 

269 

270 

274 

275 
C 

c 

c 

351 
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IST0P1 =1-1 

XOM ( 1 , IMAX ) = XOM ( 1 » IGEN ) 

XOM ( 2 » I MAX ) = ITAPE 
XOM ( 3 » I MAX ) = 9999999. 

XOM ( 1 » I GEN ) = END 
IST0P2 = IGEN - 1 
CALL SORT (XOM»ISTOP2*3»l) 

DO 262 I = 1.IST0P2 
MOM ( 1*1) = XOM ( 1,1) 

IF ( XOM (3,1) .NE. 9999999. ) XOM(2»I> = 5. 

MOM (2*1) = XOM (2,1) 

CONTINUE 

DO 264 I = 1,8 

IF ( DOM (1,1) .EQ. 0 ) GO TO 265 

CONT INUE 
I STOP 3 =1-1 
WRITE (6,9000) 

LKASE = GENCAS 

LKASE = LKASE / 1000000 

IF ( LKASE .NE. 0 ) GO TO 266 

WRITE ( 6 * 9o u4 ) ZLINE1 *DATE*ZLlNt2*PNME»ZLINE3»GENCAS*PNU»ZLINc4 
GO TO 267 

WRITL ( 6 , 90u2 ) ZLINE1, DATE, ZLl Nc. 2, PNMt,ZLlNE3» GENCAS, PNu ,ZL I Nc.A 
WRITE (6,9001) 

IF ( 1 STOP 3 .LE. 0 ) GO TO 269 

DO 268 I = 1 , I STOP3 

NC AZ ( I ) = NC AX 

FOMT ( 13 ) = SKIP1 ( ISTOP3 ) 

FOMT (15) = SKIP2 ( ISTOP3 ) 

GO TO 270 

FOMT ( 13 ) = SKIP2 (9) 

FOMT ( 14 ) = SKIP2 (9 ) 

FOMT ( 15 ) = SKIP2 ( 10) 

WRITE ( 6,900 3 ) ( NBLN ( I ) *1=1,9) , (NfcSLN (I), 1=10,18), ( NBLN ( I ) , I = 1,8 ) 
WR I T E ( 6 , FOMT ) 

GO TO 275 

WRITE (6,900 3.) ( HEAD( I ) » I =1 » 9 ) * l HEAD ( 1 ) , I =1 0 , 1 8 ) , <NCAZ( I ) , 1 = 1 ,8 ) 
DO 274 I = 1.ISTOP3 
CONT INUE 

WRITE (6, FOMT) ( DOM ( 1 , I ) , I = 1 , 1 STOP3 ) 

WRITE (6,9001) 

MONTH = MONTH - 1 


START PREDICTION PRINTING 


DO 350 I = 1 » I STOP1 

IF ( I .GT. ISTOP2 ) GO TO 351 

CASENO = MOM ( 1 , I ) 

LOCA = MOM ( 2,1) 

CONTINUE 

MONTH = MONTH + 1 

IF ( MONTH .LE. 12 ) GO TO 352 
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352 


353 

354 


358 


750 


751 

350 

355 

370 


371 


10 


220 


MONTH = 1 

MYEAR = MYEAR + 1 

CONT I NUE 

N WT = WT ( I ) + .5 

NACT = ( 100. * WTA(I) ) / WT ( I ) + .5 
NCALC = ( 100. * WTC(I) ) / WT ( I ) + .5 

NEST = ( 100. * WTE(I) ) / WT ( I ) + .5 

NWTM = W T M ( I ) + .5 

IF ( AbS( WT ( I ) - WTA(I) ~ WTC(I) - WTt(I) ) .GT. .1 ) GO TO 201 

IF ( I STOP 3 .EQ. 0 ) GO TO 354 
DO 353 J = 1.ISTOP3 

IWAbS(J) = tiOM ( 2 » 0 ) + ( FLOAT(I-l) * BOMI3.J) ) 

CONTINUE 

CONTINUE 

IF ( I .GT. ISTOP2 ) GO TO 358 
IF ( ISTOP3 .EQ. 0 ) GO TO 750 

WRITE (6*9032) C ASENO , T YP E ( LOCA ) , XMUNTH ( MONT H ) . M Y E AR * 

1 NWT , NWTM .NEST , NCALC. NACT , l I WABS ( J ) » J = 1 , I S T OP 3 ) 


GO TO 350 
CONTINUE 

IF ( 1ST OP 3 .EQ. 0 ) GO TO 751 

WRITE (6.9037) XMUNTH ( MONTH ) »MY cAR »NwT .NWTM.NEST * NCALC .HALT . 
1 ( IWABS(J) ,J=l,ISTOP3) 


GO TO 350 

WRITE (6.9032) C ASENO , TYPE ( eOCA ), XMUNTH ( MONTH ). MY EAR » 

1 NWT. NWTM. NEoT .NCALC. NACT 

GO TO 350 

WRITE (6.9037) XMUNTH (MONTH ) .MYtAR »NWT , NWTM, NEST .NCALC , NACT 
CONTINUE 

IF ( ISTOP2 .LE. ISTOPl ) GO TO 1 
IST0P4 = ISTOPl + 1 
DC 371 I = IST0P4, ISTOP2 
C ASENO = MOM ( 1,1) 

LOCA = MOM ( 2 , I ) 

WRITL (6,9032) CASENO , TYPE ( LOCA ) 

CONTINUE 
GO TO 1 

NPLUSP= I D ( 10) + ID(11) 

I GEN = I GEN + 1 

IF ( I GEN .GT. 25 ) GO TO 220 
XOMll.IGEN) = CASENO 
XOM ( 2 » I GE N ) = ITAPE 
XOM ( 3 , I GEN ) = 9999999. 

CONTINUE 

NT I M = 2 * NPLUSP + 9 
N= ID( 10 ) 

CALL READB2 ( NF , T I ME . NT I M , H I ST R Y ) 

CALL READB2 ( NF , EST , NPL US P , H I S T R Y ) 

CALL READB2 ( NF , C A LC , NPLUSP , H I ST RY ) 

CALL READB2 l NF , ACTUAL , NPLUE-p , H I STRY ) 

CALL READB2 ( NF , BU Y , N , H I S TR Y ) 

CALL READB2 ( NF , ME AN , NPLUSP » H I STRY ) 
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NT IM = NT 1 M - 9 

CALL READB2 ( NF ♦ MCONF »NT I M* H I S TRY ) 
CALL READB2 ( NF , UW2 . NPLUSP , H I STRY ) 
L = 0 

DO 101 I=N, NPLUSP 
L = L + 1 


WT ( L ' = WT ( L) + UW2 ( I ) 

WTA(L) = WTA(L) + ( UW2 (I ) * ACTUAL(I) ) 

WTC(L) = WTC(L) + ( UW2 ( I ) * CALC(I) ) 

WTE(L) = WTE(L) + ( UW2 ( I ) * EST(I) ) 

WTMtL) = WTMtL) + MEAN ( 1 ) 

101 CONTINUE 

NP ( ITAPE) =NP ( I TA PE ) + 1 
GO TO 38 

201 WRITE ( 6 * 1 0 uOu ) WT ( I ) ,WTA ( I ) ,WTC( I ) ,wTE( I ) 

10000 FORMAT ( 1H0 *5X»34HSUfcS OF PERCENTS DO NOT EQUAL 100 . » 2X * BHrt'l = , 
1 F9.2 *2X* 6HWTA = , F 9 . 2 * 2 X , 6H W T C = , F 9 . 2 , 2 X » 6HW T E = *F9.2) 


WRITE (6*9104) 


GO TO 1 

9000 FORMAT 

9001 FORMAT 

9002 FORMAT 
1 

2 

3 

4 

5 

6 

9003 FORMAT 
1 

2 


( 1H1 » 131 ( 1H*) ) 

( 1 X > 1 3 1 ( 1 H* ) ) 

(1X,34H* PREDICTION ANALYSIS TECHNIQUE * ,6A6* IX, 1H*, 

2 OH CASE NUMbER * DATt , 6X , A6, A 2 , 1 8H * REQUIRED bUYUFF , 
6X*1H* / 3H * * 29 ( 1 H* ) » 3H * ,6A6*16H * (GENERAL) *,<aX, 

1H* > 16X * 7H Lb * / 3H * ,4A6»5X,3H * »6A6.2H *»3X,I7»3X, 
13H* ,6X*2X*25H * EQUIVALENT S/C OR L/V* / 

19H * COMPUTER PROGRAM *3X*A3»7X»3H * *6A6»2H *.13X, 

17H* » 4X * 1 2 H * DEFICIT *6X,7H Lb * ) 

( 1 X * 1 8H* CASE * MdDL * * 8 X , 1 H* . 8 X . 1 OH * MAX I MUM* , 1 3X » 2H* * 
9A6>16X»1H* / 1 X * 1 8 H* NUMBERS * FOR *,8X.10H* PREDIC ** 
24H LIKELI * ..PERCENT.. * ,9A6*16X,IH* / IX, 9H* IN IHIg , 
9H * THIS *,8X, 19H* TION * HOOD *,13X,1H*»3X,8( A4,4X) 


4 

9004 FORMAT 
1 
2 

3 

4 

5 

6 

9013 FORMAT 
9032 FORMAT 
9037 FORMAT 
9104 FORMAT 
END 


* 4 X * 1 H* ) 

(1X,34H* PREDICTION ANALYSIS TECHNIQUE * *6A6. IX, 1H*, 

20H CASE NUMbER * DATE ,6X , A6 »A2 , 18H * REQUIRED bUYUFF, 

6 X , 1 H* / 3H * ,29(1 H* ) , 3H * ,6A6,16H * (GENERAL) *,21X, 

1H*,16X,7H Ld * / 3H * >4A6»SX,3H * ,6A6,2H *,3X,lHo,I6, 

3 X , 1 3H* *6X»2X*23H * EQUIVALENT S/C OR L/V* / 

1 9H * COMPUTER PROgk AM , 3X , A 3 , 7 X , 3 H * ,6A6,2H *»13X, 

17H* , 4X , 1 2 H * DEFICIT ,6X,7H Lb * ) 

( 1H1 ) 

( 1X,I9,3X,A3,4X»A3,1X,I2,2(2X»I7) »3X,3( 13, IX) ,1X,8(1X,I7) ) 
(2 OX, A3,1X*I2,2(2X*I7) ,3X,3l 13, IX) »1X,8( IX » I 7 ) ) 

( 2 5H *** SUMMING RUN DELETED. ) 
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DECISION RELEVANCY PROGRAM - 64S (Criticality) 

The Decision Relevancy Program compares current and predicted values for each 
launch vehicle, spacecraft, and the corresponding stages and modules with their re- 
spective control limits. The resulting ratios are weighted against predetermined rating 
scales to determine the criticality index. This index identifies any problems which 
may exist and emphasizes the degree of seriousness of each. 

INPUT 

Raw data is entered on a special-purpose input form titled "Criticality Program Coding 
Form", a sample of which is attached. This form is designed so as to be very nearly 
self-explanatory. The columns which are to be utilized for input are grouped under 
a heading or title which indicates the specific type of information to be entered in 
those columns. 

A separate input sheet is used for each mission. The vehicle for each mission con- 
sists of a spacecraft with its component modules and a launch vehicle with its com- 
ponent stages. To complete the input form for a typical mission, determine the stages 
and modules which comprise the vehicle for that mission. Refer to the listing at the 
bottom of the input form and determine the code for each component stage or module 
opposite the component name. Enter the code for every stage and module of the ve- 
hicle in numerical order in columns 9 and 10 of the input form, being sure that where 
two stages are listed opposite one code (for instance, theS-IIStage and S-II/S-IVB inter- 
stage are both listed opposite code 3) that the code is entered twice. Opposite the ap- 
propriate code in columns 9 and 10, enter the case number, the months to shipping, 
and the current control and predicted weights of every stage and module in the group 
of columns headed for these entries. On the line directly below the last stage or mo- 
dule, also in numerical order of code, list the code, the case number, the months to 
ship, and the current control and predicted values of the launch vehicle capability 
(code 13), and the spacecraft weight (code 14). 

In the line directly below spacecraft weight, enter code 15 (for L/V-S/ C interface) in 
columns 9 and 10 and the largest numerical value of "months to ship" appearing for 
any stage or module in columns 24 and 25. Enter code 16 (for total mission) on the 



Reference No. 64. 0. 1 
Issue Date 23 Dec 1965 
Supersedes 13 August 1965 

next line in columns 9 and 10. Finally, on the next line below code 16, enter either the 
word RUN or END in columns 1, 2, and 3, depending on whether another mission is 
to be considered or the run is to be terminated. 

Any coded line may be omitted from the above if it is not to be considered, without 
affecting the output of the others; however, the last line on any sheet should have the 
RUN or END entry in columns 1-3. Any identification desired may be entered in col- 
umns 73 through 80 under the heading identification. 

In addition to the above, further instructions are given on the input form itself. 

One other card is needed in the input deck. This card will be the first card of the 
input data deck (ENTIRE RUN). The first 14 columns of this card are placed in the 
title format. The original intent was to include the month and year of the data run 
(example 1); however, it may be desirable to modify this for data distinction as shown 
in example 2. 

Example 1 : Example 2 : 

1 - 9 11 - 14 1-14 

MONTH YEAR MONTH YEAR RUN NO. X 

Other modifications are possible as long as they stay within the first fourteen columns. 
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• » JOB DECK STRUCTURE - The Criticality Program is run as a separate job indepen- 

dent of SPACE. The job deck setup for processing the Criticality Program appears 
below: 

1 8 

$ ED 

$ PAUSE 
$ OPEN 

$ IBJOB CRITIC 

$ RELOAD 


(INPUT DATA DECK) 


CARD COLUMNS 

16 — — - — - 72 

CHARGE NO., NAME, PAY NO., UNIT NO., PROGRAM, MODE 
(MOUNT RELOAD TAPE) 

MAP, D LOGIC 

106, NAME = CRITIC, SRCH 


$IBSYS 
$ CLOSE 
$ IBSYS 











n n n n 
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$ IP JOB CRITIC MAP, LOGIC 
$1 EFTC CRITIC LIST , REF 

*** CRITICALITY DlTERMINAT ION PROGRAM *** 


COMMON /GGDATE/DATE ( 2 ) 

INTEGER LASNO,CASNU,CASNl ,LASN2 ,CA6N3 


C 

C 

C 


DIMENSION- 
0 1 Me. NS I ON 

1 

2 

*** TABLES 


NXASP(2,17) 

T AoLtE ( 36 ) » T ABLcG ( 36 ) » TOBLl ( 8 ) » I VBLE ( 8 ! » T ABLE ( 1 7 * 1 7 ) 
RTUB ( A ) *NAS T ( A ) , inOu ( 4 ) ,NAt»i( 96 ) , 1 NUtX 1 16 ) »WEM 32 > > 
JNOtXf 17) » Tn/BLt ( 8 ) ,TXriLE(b) 


data 

blank 

/06u 6060606 060/ 

data 

END 

/3HEND/ 

DATA 

RUN 

/ 3HRUN/ 

DATA 

I NDLX 

/1*7*13, 19*23*31 

DATA 

jndex 

/1*3*3*7*9»11*13 

data 

K.TUB 

/ 2 H C * 2HMA » 2Hri I , 

DATA 

NEM 

/3HI. » 6HU • * 


i 6, Z 7,2V, 3 1,33/ 


3HS-I .6HI/SGM 
3 Hi- I » 6rlb/ SUim 
3 HCM * 6 H 
3 H LEM * 6H— A. 
3HLEM » 6H 
3 HL / V * 6 H 


2 H 0 / 

3 H 8 -I » 6 HVo 

* 3 H 3 - I > 6hC / SUM 

* 3 tiL l. j * 6H 

* 3H3M * 6H 

* 3HLEh y 6 H— 0 
uRGoi*3HADA»6HP TER 
CAPMb » 3Hb/C*6h rttjT • 


3HINT t6HERFACE» 3HT0T »6HAL / 

/6H****** * 3 H *** * 3 H*** , 1H*/ 

/ 060 60 6060 6 06 0 / 

/O. oOOO.O ,9200 *0.9243 ♦0.9600 *0* 9643 *0 #9300 * 0* 9o43 , 

100 . 0 / 

/0.0 00*0. 640*0. 633* C.79u*G. 8Gb* C .69 C*U.9G3*l.U0i/ 
/1.00»u.99*0.98*'J.96* l J.94*o.b9*U.o2*U*7b*G./:>*C.72* 
G.70*C.6b*C.o6*J.64*i;.o^*>>.OD*L'.i>9*U.26*w.3690.3b* 
U.34»u.33*0.32*o«:3l »gi; w »u»h9»o.‘+o»u«47 
U.44#G.43»0.42*G.41*G.4C»G«40/ 

O.DO»u.32*b.i4*D.3o*~'»->8 *u.4w*u*hi * u • 4 2 *u.4H*G.4i * 
, D*A6f0.47*G.48*U.49*U.30»G«31*0.'j2'. *G.d3*l*34*Q.3j* 
l. 36*0»37 * C • i 8 * 0 • 3 9 * 0 • 6 u * 0 • 6 0 / 

/U*uOOu*0.95uC*^.9:)43 t'j.9boo »L*9o4;>*0.99bu*u*v94:>* 

100 . 0 / 

/G.0OuC*O.9300*G.9343 *G.96GC*L' •984:>*u*9963»C.99 9‘j* 

100.0/ 

/ 48n I Mi T Rgi v ilH i AT I OiM u l\ I I i-iVo ol Aul 

*6UH i-II bTMijt- ■+■ o-li/o-lVi i i\i T L K d I mu i_ 

» 6oHS~K STmuc. + i~ lC/i~Ii IMTlkoTAol j~ I o oTaol + i~lo/i“I/u 
» 6 I M T LKi T aut LAuinCm Lo^aHl. oYj! li v i ll'uiAL) Lui w i» ¥ tAi 4 U I'.ouu 


DATA 

data 

DATA 

NA3T 

nblnk 

TUdLl 

Data 

DATA 

TVbLL 
T A b L E 

DATA 

T Ad L l 

UATA 

T w b L t 

DATA 

T XdL l 

DATA 

N AM 
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c 

c 

c 

c 

c 

c 

c 

c 

c 


4 

6 

7 

6 

9 


1 6 OHLE (GROSS) 

* 6 UHL LM ASCENT 

• 6 OH 
,6 OH 

,6UHSPACECRAKT 

,A8H 


SERVICE MODULc (GROSS) 

STAGL LEM DESCENT S'lAGE 

LEM GROSS ADAPTER 

LAUNCH VEHICLE CAPABILITY 
WEIGHT L/y-S/C INTERFACE 


TOTAL MISSION 


/ 


*** table a is named tuble 
*** table b is named twble 
*** table c is named txble 
*** table o is named tvble 
*** table e is namld tablee and tadleg 


r** BEGIN COMPUTATION 


READ (5.10000) MONTH1 , MONTH2 , Y tAR 
10000 FORMAT (A6.A4.A4) 

I ON E = 1 
I TWO = 2 

24 CASN1 = 0 
CASN2 = 0 
CASN3 = 0 

DO 23 11=1,17 
DO 22 JJ = 1 ,17 
T ABLE ( I I.JJ) = 0.0 

22 CONTINUE 

23 CONT INUE 

25 READ (5»10oL) AUX . NAME , CASNu ,Mu , CURR »CONJ » PRED 
LOOP = 0 


C 


(AUX .LQ. RUN) GU TO 20n 


IF (AUX .EU. t 
CONTI = CONT 
TABLE ( 1 »NAMt ) 

table ( 2 .name ) 

IF (NAME .Nt. 
IF (IAME .NE. 
CASN1 = CASNO 
GO TO 46 

42 IF (NAME .NE. 
CASN2 = CASNO 
GO TO 46 

44 IF (NAME .Nt. 

CASN3 = CASNO 
46 CONTINUE 

T ABLE ( 3 ,NAMt ) 

T ABL t ( 4 .NAMt ) 
TABLE ( 5 .NAMt ) 
CURR = TABLEC 
CONT = T AbL t ( 4 
PRED = TAbLtC 
CONTI = CONT 
LOOP = 1 


ND) 

GO 

TO 

2uo 

= N AML 
= MU 
IN AML) 

GO 

TO 53 

3 ) 

GO 

TO 

42 

A ) 

GO 

TO 

44 

5 ) 

GO 

TO 

55 


= T AbLl ( 3 . NAMt ) + 

= TAbLt ( 4 .NAME ) + 

= T Abut ( 5 » NAMt ) + 

.NAME ) 

.NAME ) 

-.NAME) 


tUKR 

Cun t 
PR t U 
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GO TO 65 

55 T ABLE ( 3 .NAME ) 
T ABLE ( 4 .NAME ) 
TABLE! 5. NAME) 
65 1 NAME = NAME 
IF (CURR .EU. 


= CURR 
= CONT 
= PRED 

L.O • OR • CONT »E(j* 0*0 .OR , PRED .tU. 0*0) GO IU 70 


70 


IF (NAME *NE. 
TEMP = CONT 
CONT = CURR 
CURR = TEMP 
TEMP = CONTI 
CONTI = PRED 
PRED = TEMP 
IF (NAME .NE. 
T ABLE (6*15) = 
TABLE(7*15) = 
GO TO 80 


13) GO TO 70 


15) 


GO TO 75 
T AoLE ( 3 • 1.3 ) / 
T AtiLE (5*13) / 


TAdLE ( 3*14) 
T AbLt. ( 5*14) 


75 IF (CURR •EO« 0*0 • 0 R • CUNT • E u • 0*0 »OR« PR ED . c nj » 0*0) GO iU 111 

table (6*namE) = con r / curr 

TABLE ( 7.NAME) = CONTI/ PRED 


80 

J = 

6 






95 

DO 

100 1=1,7 







IF 

(NAME .EO. 13) 

GO TO 96 






IF 

(NAME .EO. 1 A ) 

GO TO 96 






GO 

TO 97 






96 

IF 

( T ABLE ( J » NAMt ) 

•OT. TWBLl(I) 

. AN L) • 

T Ab Lt_ ( J * NAMt. ) 

• L I • 

T WuLL 


1 

( 1+1 ) ) GO TO 

105 






GO 

TO 100 






97 

IF 

(NAME .NE. 15) 

GO TO 98 






IF 

( TABLE ( J » iM AM t ) 

• G I • TXpLc(I) 

• Aim u. 

T Al> L L ( J * N AMt_ ) 

.LT. 

TXBLi. 


1 

( 1 + 1 ) ) GO TO 

105 






GO 

TO 100 






98 

IF 

( T AdLc l J ,1'tArie. ) 

• Gl. T uull ( I ) 

. ANl> . 

TaoLlI J * »>» A^l. ) 

• L 1 . 

1 UBlL 


1 ( 1 + 1 ) ) GO TO 105 

ICO CONTINUE 
105 CONTINUE 


IMO = ( I + 1 ) / 2 
NXASPt J-5*NAME) = NBLNK, 

IF ( MOD (1*2) *E0. 0 ) NXAbP( J-5*NAMt ) = iNA T ( 4 ) 

T A B L E ( J + 2 * N A M L } = I MO 

IF (J • EO • 7) GO TO 110 
J = 7 
GO TO 95 
C 

110 CONT INUE 

111 IF (f 0 .EG. 0) MO = 1 
TAoLE(10* NAME } =: TABLlE(MU) 

T ABLE ( 1 1 * NAMc ) = lAbLLGtMO) 

112 ICBLE = T AdLi_ ( 1 » NAME ) + u.5 
IF (ICBLE .Nt. 16) GO TO 140 
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TABLE (12* NAMt ) = 

L 

T A6L L ( 13i NAML) = 

L 

T AbLt l 1 A » NAHt ) = 
L 

TABLE ( l3.NAMt) = 
GO TO 145 


TABLL( l2*NAME-3) 
{ 12 t NAME-1 ) 

T ABL L ( 13 tlMMML-3 ) 
( 13 » NAME-1 ) 

T ABLE ( 1 A * INiMML- 3 ) 
( 1 A » NAME- 1 ) 

T ABLE ( 1 A * NAME ) / 


+ TABLE( 12WMAME-2 ) + TABLE 
+ TABLLl 13 fNAMt-2 ) + TAdLL 
+ TAoLE ( 14 * NAMl- 2 ) + TAoLl. 
12.0 


GO TO 160 

TABLE ( 8 .NA.-iE ) * TABLt( 10.NAML) 
TABLE! 9 * 1 NA 1 - 1 E ) * TABLE ( 1 1 .NAME ) 
TABLE ( 12 .NAME ) + T AbLE l 1 3 .NAME ) 
TABLE! 14, NAME ) / 4.0 


140 IF (MO .EQ. 0) 

1 ABLE ( 12* NAME ) 

TABLE! 13 * NAME ) 

T ABLE ( 14, NAME) 

TABLE! 16* NAME ) 

145 DO 15C L= 1 * 7 

IF t TAoLc ( 15.NAMO .Gt. TVoT-t(L) 
1 TVdLE ( L+ l ) ) GO TO 155 
150 CONTINUE 
155 IMMO = L 

I MNO = NBLNK 

IF ( MOD! IMMO, 2) .EO. 0 
IMMO = ( IMMO + 1 ) / 2 

TABLE ( 16. NAME) = ( L + 1 

160 CONTINUE 

IF (LOOP .EO. 1 ) GO TO 25 
TABLE! 17, NAME) = CASNO 
GO TO 25 


•AND. I AoLL ( 16 .NAME ) 


) I MNO = NAST ( 4 ) 
) / 2 - 


200 


215 

217 


DO 

IF 

IB 

GO 


215 LOZ = 1,5 

l TABLE t 1 7.LOZ ) .EO. 0.0) 
= TABLE! 17, LOZ) + 0.5 
TO 217 
CONT INUE 
IA = 0 

CALL FLIP ( I A , I B , I ONE ) 

IRC = IA * 100 
IA = 0 

CALL FLIP ( I A, IB, ITWO) 

IRC = IRC + IA 
IF (NAME .EG. 2) GO TO 


*** ROUTINE FOR FULL OUTPUT 


GU TO 215 


45u 


WRITE ( 6 * 1 vu4 ) I RC.MGNTH1 ,MuIMTH2 ,YlAR 
WRITE (6,1006) 

WRITE (6,1011) 

DO 300 K. = 1 ,16 
ICBLE = TABLE (1,10 
IF (ICBLE .EO. C) GO TO 29o 


I ABLE 
JABLE 
K.ABL E 
LABL E 


TAdLE ( 2 , K ) 
T AoLl. ( 3 , K ) 
TABLt(4,K) 
T ABLc ( 5 » K ) 


+ C . 5 
GO TO 
+ ^ . 5 
+ u.5 

+ v . 6 

+ d . 5 



n n n o n 
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IBBLE = TABLE ( 8 » K ) + 0.5 
JBBLE = TABLE ( 9 » K ) + 0.5 
246 NUT = TABLE! 16, K) 

KBBLE = K.TUB ( NUT } 

NED = JNOEX(K) 

NOM = JNOEX ( K+ 1 ) - x 
CASNO = T ABLE ( 1 7 » K. ) + 0.5 


KINO = 1 6u I H CASNU hi ,0 CASNU HAVE 7 Dibits 

= 2 CasNu has 6 uluITs* CAsNu nAs 7 ululls 

= 3 ChsNO HAs 7 01 o 1 TS » CASnu HAS 6 Dibi Is 

= 4 bU f H CASNO ANl) CASNU H A V t 6 DlGlTs 
C 

KAZNO = CASNO/1COOOOO 

IF (ICbLE .tQ. 3 .AND. CASN1 .HE. 0) GO To 249 
GO TO 250 

249 CASNU = CASN1 
GO TO 255 

250 IF (ICbLE . lU. 4 .AND. CASNc .Nt. 0) GO To 251 
GO TO 252 

251 CASNU = CASN2 
GO TO 255 

252 IF (ICdLE ,lU« 5 .AiMo. CASN3 .Nl. o) Go To 253 
GO T.O 254 

253 CASNU = CASN3 
GO TO 255 

254 IF (ICbLE ,LQ. 15 .OR. ICbLt .lo. 16) GO T o 256 
IF (KAZNO ,E(J. 0) GO TO 1254 

WRITE (6,1003) CASNO 
GO TO 256 

1254 WRITE ( 6 » 1 0o2 ) CASNO 
GO TO 256 

255 KIND = 1 

IF (I AZNO .tO. 0) KIND = MNu + 1 
KAZNO = CASNU / 100 000 
IF (KAZNO .tO. u) KIND = kINu + 2 
GO TO ( 1255 , 1256 , 1257 , 125a ) »KlNu 

1255 WRITE <6»lvu3) CASNO»CASNO 


GO TO 256 

1256 WRITE (6,1001) 
GO TO 256 

1257 W'RITT (6,1007) 
GO TO 256 

1258 WRITt (6«10u2) 
256 CONTINUE 

IF (I CbLt • li, . 
IF (ICdLE .to. 
WRITE (6,lttb) 

1 

2 


CASNO, CASNU 
CASNO. CASNU 
CAoNO, CASNU 

13 .OK. ICDtt .Lo. 14) oO Tu 26s 
15 .ok. lCoLL .to. 16) uu To t 58 
( NcH ( lb) ,lb = ( '*Et,r40i'i),IADtE,oMDut,NAutt,LMDtL, 
TAUlE(6,K) ,1 Abttl 7 » n ) , lboLtdiXAoPI 1 ,M oul-uli 
NX ASP ( 2 * K ) , ( T AbL t ( I X,K ) » I X = 1 0*15) , KbbLt , Imw 


GO TO 290 

258 IF ( ICBLE .EQ. 
WRITE (6,1027) 


16) GO TO 262 

( Nt rt ( lo) »IB* , ' , Ebt Noi'i ),IAbLE,lAbLt(6,K),TADLt( 7 » n ) » 
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lbdLt*NXASP ( 1 *n ) * JduLl * ( *XAoP ( £ * K. ) >( 1 AbLi_ ( 1X»M* 

2 


X 

it 

»— * 
c 

<* 

o 

o 

GO TO 

290 


262 WRITL 

(6* 1 U28 ) 

( Nth ( I 6 ) * IB = NED* imOm ) * ( I AbLE (IX*m*IX = 12*15) *M5buE 

1 


I MNO 

GO TO 

290 


265 IBBLI 

= NI3LNK 


JGGLE 

= NBLNK 



DO 2 70 M A W = 1 * 4 
I BCD = T Ab L E ( 8 * K ) + 0.5 
JbCO = T Ao Lti ( 9 * K ) + 0.5 
IF ( I b C L) .Nl. MAW) 00 TO 2 o7 
IGGLL = KTUd ( MAW ) 

267 IF (JbCD .NL. MAW) GO TO 0 
JGGLE = KTUb(MAW) 

270 CONTINUE 



WRITE 

1 

2 

( 6 * 1 o 2 4 ) 

( NtM ( I b ) * I i3=i»Li/ * Nun ) » lAButtJAdLL » i^AEll » LAbLt. » 

T ABl. L ( 6 * X ) * 1 AbLc ( 7*N) * [bGL_*NXAuP( 1 * is ) *JgGLC* 
NX ASP ( 2 * K ) * ( T Al-ll ( 1 X * N ) *IX = lu»15) * K d d L l * 1 i v iN u 

290 

IF ( K 
GO TO 

• E 3 * 5) 
295 

GO TO 294 

294 

WRITE 

(6*1012) 


295 

IF (K 
GO TO 

• L Q . 1 A ) 

300 

GO TO 298 

298 

WRITE 

( 6 » 1 U 1 3 ) 


300 

CONTINUE 



C 

C *** ROUTINE FOR CONDENSED OUTPul 
C 

450 IF (NAME .EQ. 1) GO TO 775 

WRITE (6*lUU4) IRC* MON T H 1 * MuN T H 2 ♦ Y c A k 
WRITE (6*1009) 

WRITE (6*1011) 

DO 750 MA = 1*16 

ICBLt = T A b L l ( 1 * M A ) + 0 . 5 

IF ( ICbLE .tU. j) GO TO 71!) 

LUM = INDEX ( i v i A ) 

LUN = LUM + 5 
N I E- = T AbL L ( 16 t MA } + ^.5 
DO 495 I R = 1 *4 

495 NOB ( IR ) = NBLNK 

NOB (Nib) = NAS T (Nib) 

IF (ICbLE *C-U.. 3 • ANu* CASnI .Nl. 0) G^ lb bo 9 
GO TO 510 

509 CASNU = CASN1 

GO T ( 513 

510 IF (lCoLu .lo. A ’ • Ai'mu. CABuc *nc. o) Go T o j i 1 
GO TO 512 

511 CASNU = CAS N 2 
GO TO 3 16 ’ 

312 IF (ICbLt .i_b. 3 .hNo. CASnj> .i*l. o) Go T <j j 1 3 

GO TO 514 

513 CASNU = CASN3 



n n 



GO TO 518 
514 CONTINUE 

518 CASNO = TABLt ( 17 »MA ) + 0.5 

IF (ICoLt .tu. 3 .OR. ICoLt .Eu. 4 .ok. lCBLt .to. 5) GO To 6io 

IF (ICoLt .no. 15 .OR. ICdLC .to. 16) GO To 620 

WRITE (6*1025) (NAMING) »MG= U UM » LUN ) » CAS NO * ( NOB ( MH ) , KH=1 .4 ) 

GO TO 625 

610 WRITE (6.1015) < NAM( MG) ,MG=LUM»LUN ) .CASN0.CA6NU , l NOB(MH) »MH*1 ,4 ) 

GO TO 625 

620 WRITE (6.1026) ( NAM ( MG ) ,MG=LUM » LUN ) , ( NOB ( MH ) • MH= 1 » 4 ) 

625 CONTINUE 

715 IF (MA .EQ. 5) GO TO 724 
GO TO 725 

724 WRITE (6.1012) 

725 IF (MA .EQ. 12) GO TO 740 
GO TO 750 

740 WRITE (6.1013) 

750 CONTINUE 

775 IF (/UX .EQ. RUN) GO TO 24 
CALL EXIT 


1000 FORMAT (A3,17»3X,I7.3X,I2,3(3X.F7.0)) 

1001 FORMAT (4X,9H*CASt NO. , 3X . 1H0 » I 6 . 3X» I 7 ) 

1002 FORMAT <4X,9H*CASE NO. , 2 < 3X , 1HO , I 6 ) ) 

1003 FORMAT <4X,9H*CASc NO. .20X.I7)) 

1004 FORMAT (1H1.46H ***** CRITICALITY UtTcRr.I NAT I ON PRoGkAm ***** 

1 10X.I3.8H MISSION, 20X.A6.2A4) 

1005 FORMAT (1HU.12X.3HMO. / 1 3X » 2H 1 O, 5X > 26HRt RuRT cD ( uK CAlC.) Founuii 

1 3X.9HR A T X O.5X.i0HCONU. Loot . 3X . 1 1H T I Me FAC10K.3X, 

2 19HTIML WtIGHTcU CQNO. »4X ,7HuVtKALt / 

3 1X.9HCOMPONENT .2X»4H8H1P,3X.7hCORRlNT.3X,7hCONTROL 

4 . 3X » 7HPREO I CT , 2X , 5nCuRK . » 2X , 5HPRED . , 2X . 5HLURR . .2X» 

5 5HPRtO. .2X.5HCURR. .2X.5HPRED. »2X , 5HCURR. ,^X,5HPRtu. ,4X, 

6 3HSUM.2X.5HRATI0.2X.5HC0ND. / ) 

1 OC 6 FORMAT ( 1X.A3.A6.3X, 12. 1X,3« 3X.I7) .21 IX .F6.3 ) .2 ( 2X, I4.A1 ) . 

1 6I2X.F5.2) .2X.A3.A1 / ) 

1007 FORMAT ( 4X , 9H*CASt NO. , 3X * I 7 . 3X . 1 HO . 1 6 ) 

1009 FORMAT ( 1HU . 1wX,22HCONDENoco RATING TABLE II 14X » 9HCOMPUNLNT , 

1 24X ♦ 1 1HCASE Number. 19X.11HR A T 1 N G // 68X.6HCRI1 ICAL, 

2 22H — WEAKNESS — GOoU / 78X.19HMAJUR MINOR SHAPe // ) 

1011 FORMAT ( 22H LAUNCH VcHICLE OTAGES / 22H ****** ******* ****** / ) 

1012 FORMAT ( / 2uH SPACECRAFT MODULES / 20H ********** ******* / > 

1013 FORMAT ( / 16H OVERALL MISSION / 16H ******* ******* / j 
1015 FORMAT ( 1X.6A6.6X.2I I7.6X) .A6»4X»A3.4 X,a3.5X,A1 / ) 

1024 FORMAT { IX , A3 . A6 . 3X , I 2 . IX , 3 l 3X » I 7 ) , 2 ( 1 X , F6 . 3 ) . 2 ( 4X , A2 , A 1 ) , 

1 6(2X.F5.2) .2X.A3.A1 / ) 

1025 FORMAT ( 1X.6A6.6X. I7.19X.A6.4X.A3.4X.A3.5X.A1 / ) 

1026 FORMAT (1X,6A6»32X,A6,4X,A3»4X.A3,5X,A1 / ) 

1027 FORMAT ( 1X.A3.A6.3X, I2.31X.2 ( 1X.F6.3) *2 I2X.I4.A1 ) »6(2X,F5.2) .2X, 

1 12 .A1 / ) 

1028 FORMAT ( 1X,A3.A6.78X,4( 1X.F6.2) .2X.A3.A1 / ) 

END 
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OVERALL COST ESTIMATION - 65S 


This program calculates the overall cost required to accomplish a given buyoff and 
is based on the following assumptions: 

ASSUMPTIONS 

1. Only overall costs on the stage and module levels were considered. An 
analysis based on the functional-systems level will be performed in the future 
as a refinement of this analysis. 

2. A ten percent redesign yield was assumed, i. e. , 1000 pounds of inert weight 
must be redesigned and refabricated, where required, in order to obtain a 
100-pound weight reduction. 

3. R&D dollars vary exponentially with weight reduction, i. e. , the first 

100 pounds of weight reduction costs less than the next 100 pounds, etc. The 
exponential equation used is 

D = aW 13 

where: 

D = required R&D dollars 

W = weight reduction required 

a,b = constants derived for each stage/module from the available 
cost data. 

4. Production costs for a change are equal to the dollars spent to date on the 
affected portion of the vehicle. The affected portion of the vehicle is the 
1000 pounds, for example, which is being redesigned in order to obtain a 
100-pound weight reduction. 

5. R&D costs are assigned to the first vehicle for which a required buyoff occurs, 
even though the effects will be realized on subsequent vehicles. For example, 
if a 100-pound buyoff is required for the S-IC-501 and a 300-pound buyoff is 
required for the S-IC-502, the S-IC-501 will be charged with the cost of the 
first 100-pound buyoff while the S-IC-502 will be charged with only a 200-pound 
buyoff. The costs are determined by first calculating the cost of the 100-pound 
buyoff using the equation in assumption 3. This cost of the buyoff is charged 
to the S-IC-501. Using the same equation, the cost of a 300-pound buyoff is 
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calculated. The cost of the 200-pound buyoff assigned to the S-IC-502 is 
determined by subtracting the cost of the 100-pound buyoff from the cost of 
the 300-pound buyoff. This type of calculation is required since we are as- 
suming an exponential cost distribution. 

6. The predicted schedule slip is equal to the absolute buyoff cost divided by the 
current spending rate of the given stage/module. The absolute cost is the cost 
of a given buyoff, not considering the cumulative effects of previous buyoffs. 

In the previous example, the cost of the 300-pound buyoff is the absolute cost 
for the S-IC-502. It is this cost that is divided by the spending rate in order 
to obtain the desired schedule slip. 

COMPUTER PROGRAM 

Based on the above assumptions, a computer program was developed to perform the 
required calculations. Referring to the computer output sheet columns (see Reference 
Number 65.3), counting from the left, the program requires the following data and 
performs the following calculation: 

1. Stage/module. 

2. Total buyoff required, in pounds (obtained from prediction analysis). 

3. Cumulative required weight reduction (column 2 minus the greatest previous 
number in column 2, if negative, enter zero). 

4. a (input constant for each stage/module, taken as the production cost 
per pound). 

5. b (input constant, i.e. , the exponent, for each stage/module, which is the 
slope of the Cost versus Weight Reduction line, when it is plotted on log-log 
graph paper). 

6. Total required R&D dollars, in millions, (column 2 raised to the column 5 
power and then multiplied by column 4, i.e. , D=aW b from assumption 3). 

7. Cumulative R&D dollars, in millions, (column 6 minus the greatest previous 
number in column 6, if negative, enter zero). 

8. Number of production months (the number of months that a given stage/module 
has been in the production phase. This data is obtained from the SARP charts). 

9. Production dollars/pound-vehicle-month (the production cost of one pound of a 
given stage/module for one month). 

10. Percent yield (this is the percent weight reduction obtainable from a given 
redesign, assumed to be ten percent for this study). 

11. Production weight requiring redesign, in pounds, (100 divided by column 10 
and then multiplied by column 2) . 
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12. Required production dollars in millions, (column 8 times column 9 times 
column 11). 

13. Total cost (gross), in millions, (column 6 plus column 12). 

14. Total cumulative cost, in millions, (column 7 plus column 12). 

15. Tradeoff factor in dollars/pound (column 13 divided by column 2). 

16. Current spending rate in dollars/month. 

17. Schedule slip in months (column 13 divided by column 16). 
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JOB DECK STRUCTURE - The Cost Program is run as a separate job independent of 
SPACE. The job deck setup for processing the Cost Program appears below: 


1 8 

$ ID 

$ PAUSE 
$ OPEN 

$IBJOB COST 
$ RELOAD 


CARD COLUMNS 

16- 72 

CHARGE NO., NAME, PAY NO., UNIT NO., PROGRAM, MODE 
(MOUNT RELOAD TAPE) 

MAP, DLOGIC 

106, NAME = COST, SRCH 


(INPUT DATA DECK) 


$ IBSYS 
$ CLOSE 
$ IBSYS 



OVERALL COST ESTIMATION - SATURN V LAUNCH VEHICLE 
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For Each 
Stage or 
Module 
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r 


Calculate 
Schedule Change 
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IIBFTC 655 LIST »RFF 

C COMMON DEFINITIONS 
C 

C DIMENSIONS 

DIMENSION IHED1 (12) 

DIMENSION INPUT (11),FINPUT ( 7 ) , FOPUT ( 8 ) , I NPUS ( 4 ) 

C EQUATE THE FOLLOWING 

EQUIVALENCE ( INPUT (5) »FINPUT (1)) 

C 

READ (5*5003) IHED1 
5003 FORMAT (12A6) 

AKARN = IOC. 

AKON = .000001 
AKORN = 1000000. 

C AT 100 READ A CARD 
C COLUMNS 1 THRU 24 ♦ BCD 

C COLUMNS 25 THRU 66 » FLOATING POINT, FIELD WIDTH 6, DEC. PLACES 2 

100 READ (5,1001) INPUT 

1001 FORMAT (4A6,2F8.2,F8.3,4F8.2) 

C DATA STATFMENT 

DATA I END » I PAGE, I NODAT , I MASK , IDE L , I NODEL 
1 /3HEND,4HPAGE ,6HNO DAT *077777700000^ *3HDFL,6H NO DEL/ 

C AT 110, DID CARD CONTAIN END 

110 IF ( INPUT (1 ) .FO.IEND) GO TO 2001 

C AT 120, DID CARD CONTAIN PAGE 

120 IF ( INPUT ( 1 ) .EG. I PAGE ) GO TO 125 

C AT 122 IS NAME IN SAME CATEGORY AS PREVIOUS 

122 IX = AND< INPUT ( 1 )* IMASK) 

IF ( IX.FQ. IPREVN) GO TO 130 
WRITE (6,1007) 

1007 FORMAT (15X) 

ILCNT = ILCNT -1 
FPREV1 = C.O 
FPREV5 = 0.0 

C AT 130, DO COLUMNS 19 THRU 25 STATE NO DATA 
130 IF ( INPUT (4) .EQ. I NODAT) GO TO 390 
C AT 150, IS (1) GREATER THAN PREVIOUS (1) 

150 IF (FINPUT (l).GT.FPREVl) GO TO 160 
C AT 180, SFT (2) OR FOPUT ( 1 ) = 0 
180 FOPUT (1) = 0.0 

C AT 190, CALCULATE (5) = (3)X(1)**(4) 

190 FOPUT ( 2 ) = AK0N*FINPUT(2)*FINPUT<1)**FINPUT<3) 

GO TO 200 

C AT 125 SET PREVIOUS VALUES TO ZERO 
125 FPREV1 = O.C 
FPREV5 = 0.0 
I NPUS ( 2 ) = I NPljT ( 2 ) 

I NPUS (3) = INPUT (3) 

I NPUS ( 4 ) = I NPUT ( 4 ) 

GO TO 370 

C A? 160 (2) = ( 1 ) - PREVIOUS(l) 

160 FOPUT ( 1 ) = FINPUT ( 1 ) -FPREV1 
C AT 170, SET PREVIOUS ( 1 ) = THIS (1) 

170 FPREV1 = FINPUT(I) 

GO TO 190 
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C FNP FLOW CHART, PAGF ] 

C 

C AT 2O0, 1 0 (5) GREATFR THAN PREVIOUS (5) 

2 C; C IF (F0PUK2) .6T.FPRFV5 ) GC TO 220 

C AT 210, 5 FT ( 6 ) = 0.0 
2 ] 0 FOPUT (3) = G * 0 
GO TO 236 

C AT 220, (6) = ( 5 ) -PREVIOUS ( 5 ) 

22 0 FOPL'T ( 3 ) = FOPUT<2) -FPRFV8 
C AT ?3F,SFT PRFVIOHC ( cj j _ JHC ONE CM 
2^0 FPRFVF = FOPt.iT ( 2 ) 

C AT 236 CALCULATE t 1.0) , (1 1 ) , ( 1 2 ) , ( 1 3 ) , ( IF) 

236 FOPUT (4) = AKARN*F1NPUT (1 ) / F i NPUT (6 ) 

FOPUT ( 5 ) = AK0N*F INPUT ( 4) *F INPUT ( 5 ) *FOPUT ( 4) 

FOPIJTI6) = FCPIJT ( 2 ) +F0PUT ( 5 ) 

FOPUT (7) - FOPUT ( 3 ) f FOPUT ( 5 ) 

FOPUT (8) = FOPUT (6) / r I NPUT ( 7) 

C END MAIN CALCULATION BLOCK 
C AT 2 A 7 , IS (CM L c SS THAN 0 . o 
242 IF ( FOPUT ( 3 ) .LT.p.O) rQ TO 26° 

C AT 2C, IS (] = ) EQUAL TO r f 
2Fp IF ( FOPUT ( 8 I • r 0. A «0 ) GO TO 26 n 
C AT 2 7°, SET FMCNT -■ 1 

C M N T - 1 , F 

C AT 27 8, IF no GPFAT^p THAN FMCNT 

2 78 IF ( FOPUT ( 8 ) .GT.FMCNT ) GO TO 284 
C AT 2 °0 , EFT ( CM =FMCNT 
2 ° C FOPUT (8) = F'-'CNT 

295 FTRADF = AKORN*,-OPul( 6 ) /(■ I NPUT ( 1 ) 

GO TO 31. 

C AT 284, INCREASE FMCNT 

284 FMCNT = FONT + 1.0 
r o TO 2 n 8 

0 AT 2 6 F , C F T ( 1 c ) rr - C 
7 6 n FOPUT (8) - ■' . r ’ 

GO TO off 

C 

C END FLOW CHART, PAGF 2 
C 

C BEGIN FLOW CHART, PAGE 3 
C AT 3G0 PRINT LINE, ALL PARAMETERS BLANK 
300 WRITE (6,1002) I NPUT ( 1 ) , I NPUT ( 2 ) 

100? FORMAT ( 1 X , 2 A6 ) 

GO TO 320 

C AT 310 PRINT LINE WITH ALL PARAMETERS 

310 WRITE ( 6 , 1 f> 0 3 ) I NPUT ( 1 ) .INPUT ( 2 ) , F I NPUT ( 1 ) , FOPUT t 1 ) , F I NPUT ( 2 ) , 

IF I NPUT (3) , FOPUT ( 2 ) , FOPUT ( 3 ) C I NPUT ! 4 ) ,F INPUT ( 5 ) , F I NPUT ( 6 ) .FOPUT ( 4 ) 
2 .FOPUT ( 6 ) , F OPUT ( 6 ) , FOPUT (7) , 

3FTRADE , ' F I NPUT ( 7 ) , FOPUT ( 8 ) 

1003 FORMAT (1X,1A6,1A2, F7.0.F7.0 , F6.0, F6 . 3 , 1 X , F 8 . 1 , 

11X,F8.1,1X,F6.0,1X,F7.0»1X,F5.0,2X,F7.0,1X,F7.1,1X,F7.1,F9.1, 

2 F9.1 ,1X,F7.1 .1X.F6.0) 

C AT 320, REDUCE LINE COUNT 
320 ILCNT = ILCNT -1 
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C AT 330 TEST LINE COUNT 

330'" I F ( fC'CNT . LT .6 ) GO TO 370 
GO TO 380 

370 WRITE (6.5007) IHED1 


5007 FORMAT ( 1 H 1 * 30X » 1 2A 6 ) 

WRITE (6*1004) INPUS (2 j .INPUS (3) ,INPUS<4) 


1005 

FORMAT ( IX, 130HSTAGE/ 

TOTAL 

CUM. A 

B TOTAL 

CUM 

1“ 

NO. OF PROD S/ P.C. 

PROD WT. 

REQD. 

TOTAL TOTAL 

IRADE 

2 

CURRENT SCH. / 





3 

IX, 130HMODULE- 

REQD 

REQD. 

REGD. $ 

R + D S 

4 

PROD LB-VEH. YIELD 

REQD. 

PROD • $ 

COST CUM. 

OFF 

'3 

SPENDING SLIP / 





6 

IX 1 3 1 H 

B.O. 

WT . 

MILLIONS 

MILL I 

Tons Months mo. 

REDESIGN 

MILLIONS 

MILL. COST 

(S/LB) 

8 

RATE (MO. )/10X,llH(LBS) RED,54X,5H< 

LBS ) * 20X , 8HMILLIONS, 


91 OX , QHM ILL. /MO. / 18X.5H ( LBS ) / f 
373 WRITE (6.1005) 

1004 FORMAT ( 40X, 30HREQUI REO B'JYOFF COST SUMMARY .3A6//) 

377 ILCNT = 50 

C "AT "380"', MOVE NAME TO PREVIOUS CELL" "" 

380 IPREVN = AND( INPUT ( 1 ), IMASK ) 

GO TO 100 

C AT 2001, RESTORE PAGE AND EXIT 
2001 WRITE (6.T06) 

1006 FORMAT (1H1) 

CALL EXIT 

STOP 

END 


CARD COUNT 


138 
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UPDATE PROGRAM - 66S 

This program reads a set of data cards and performs an update on the Weight Data 
File (WDF). The update may consist of: 

a. Additions of entire new cases to the Weight Data File. 

b. Addition of new data points . 

c. Corrections to previously submitted erroneous points. 

Input cards for each of the three types are described as follows: 

NEW CASE ADDITIONS 

The addition of entire new cases consists of the following set of cards: 

Card 1 

Word 1 - The word RESTO punched in columns 1-5 

Word 2 - Month in which the system is to be shipped (integer) 

Word 3 - Year in which the system is to be shipped (integer) 

Word 4 - Month in which first data point was observed (integer) 

Word 5 - Year in which first data point was observed (integer) 

Word 6 - Parameter r x (floating point) 

Word 7 - Parameter r 2 (floating point) 

Word 8 - Actual percentage of weight at shipping date (floating point) 

Word 9 - Calculated percentage of weight at shipping date (floating point) 

Word 10 - Estimated percentage of weight at shipping date (floating point) 
Word 11 - The word ITERAT 

Word 12 - Minimum weight value to be plotted (floating point) 

Word 13 - Maximum weight value to be plotted (floating point) 

Word 14 - * 

NOTE - Words 2-14 must be punched in columns 7-72 inclusive with at least one blank 
space between words. Words 12-13 are optional and maybe omitted from the card. 

Card 2 

Columns 1-7 Case number 
Columns 19-72 Case title 
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Cards 3 through n-1 

Word 1 - Time, t, in months (integer), measured relative to words 4 and 5 
on Card 1 above 

Word 2 - Observed weight W^ in pounds (floating point) 

Word 3 - Estimated fraction of observed weight (0 s e. s 1) 

Word 4 - Calculated fraction of observed weight (0 s c. s 1) 

Word 5 - Actual fraction of observed weight (0 s a. s 1) 

Word 6 - Nonrandom change for this month 
Word 7 - * 

NOTE - Words 2-7 must appear in columns 7-72 inclusive with at least one blank 
space between words. 

Card n 

The word END must appear in columns 7-9 and an * in column 12. 

NEW POINT ADDITIONS 

A new data point is defined as a series of values which update a given functional system 
from the previous month to the present month. These values appear on a data card with 
the following format: 

Word 1 - Case number of the system to be updated 
Word 2 - Observed weight (floating point) 

Word 3 - Estimated percentage of observed weight (floating point) 

Word 4 - Calculated percentage of observed weight (floating point) 

Word 5 - Actual percentage of observed weight (floating point) 

Word 6 - Nonrandom change 
Word 7 - *- 

NOTE - As above, words 1-7 must appear in columns 7-72 inclusive with at least one 
blank space between words. 

ERRONEOUS POINT CORRECTIONS 

To correct previously submitted erroneous data points, the following corrections are 
permitted: 

a. Corrections to the shipping date 
Word 1 - S in column 1 

Word 2 - Case number of the functional system which is to be changed 
Word 3 - New month in which system is to be shipped (integer) 
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Word 4 - New year in which system is to be shipped (integer) 

Word 5 - * 

NOTE - Words 2-5 must appear in columns 7-72 inclusive with at least one blank 
space between words. 

b. Corrections to the plotting scale factors 
Word 1 - P in column 1 

Word 2 - Case number of system which is to be corrected 
Word 3 - New minimum scale factor 
Word 4 - New maximum scale factor 
Word 5 - * 

NOTE - Words 2-4 must appear in columns 7-72 inclusive with at least one blank 
space between words. 

c. Corrections to the ECA percentages at shipping date 
Word 1 - ECA in columns 1-3 

Word 2 - Actual percentage of weight at shipping date (floating point) 

Word 3 - Calculated percentage of weight at shipping date (floating point) 

Word 4 - Estimated percentage of weight at shipping date (floating point) 

Word 5 - The word ITERAT 
Word 6 - * 

NOTE - Words 2-6 must appear in columns 7-72 inclusive with at least one blank 
space between words. 

d. Corrections to the nonrandom change of some past data point 
Word 1 - Case number of functional system which is to be changed 
Word 2 - Corrected nonrandom change 

Word 3 - Month in which the change applies 
Word 4 - Year in which the change applies 
Word 5 - * 

NOTE - Words 1-5 must appear in columns 7-72 inclusive with at least one blank 
space between words. 

e. Correction of a past observed data point 

Word 1 - Case number of the functional system which is to be changed 
Word 2 - Weight 

Word 3 - Estimated percentage of weight 
Word 4 - Calculated percentage of weight 
Word 5 - Actual percentage of weight 
Word 6 - Nonrandom change 
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Word 7 - Month to which the correction applies 
Word 8 - Year to which the correction applies 
Word 9 - * 

NOTE - Words 1-9 must appear in columns 7-72 inclusive with at least one blank 
space between words. 

f. Corrections to the entire set of control parameters (A card change) 

Word 1 - Month in which the system is to be shipped (integer) 

Word 2 - Year in which the system is to be shipped (integer) 

Word 3 - Month in which the first data point was observed (integer) 

Word 4 - Year in which the first data point was observed (integer) 

Word 5 - Parameter r x (floating point) 

Word 6 - Parameter r 2 (floating point) 

Word 7 - Actual percentage of weight at shipping date (floating point) 

Word 8 - Calculated percentage of weight at shipping date (floating point) 
Word 9 - Estimated percentage of weight at shipping date (floating point) 
Word 10 - The word ITERAT 

Word 11 - Minimum weight value to be plotted (floating point) 

Word 12 - Maximum weight value to be plotted (floating point) 

Word 13 - * 

NOTE - Words 1-13 must be punched in columns 7-72 inclusive with at least one blank 
space between words. Words 11 and 12 are optional and may be omitted. 

METHOD OF UPDATING INPUT 

So that the Weight Data File can be updated, it is necessary to mount the WDF on U04. 
The output file must be mounted on U03. The order of the input deck must be set up in 
one of two ways . 

No New Cases 

If no new cases are to be added the cards should be prepared as follows: 

Card 1 

Word 1 - The current month which is being added to the WDF (JAN, FEB, 
MAR, ) 

Word 2 - The current year (integer) 

Word 3 - The word PRINT 
Word 4 - * 
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Cards 2 through (K-l) 

All additions or corrections as described in the preceding paragraphs. These 
cards may appear in any order. 

Card K 

Word 1 - The word END 
Word 2 - The word OF 
Word 3 - The word UPDATE 
Word 4 - * 

NOTE - Words 1-4 on both cards 1 and card K must be punched in columns 7-72 inclu- 
sive with at least one blank space between words. 

New Cases 

If there are one or more new cases to be added, the new cases must appear as the 
first data cards in the update deck. They must be manually sorted by case number and 
appear in ascending order. Following the END card of the last case to be added, must 
appear the following card: 

Word 1 - END 
Word 2 - OF 
Word 3 - ADDS 
Word 4 - * 

NOTE - Words 1-4 must appear in columns 7-72 inclusive with at Least one blank 
space between words. 

Thereafter the input deck follows the format given under No New Cases. 

METHOD OF UPDATING OUTPUT 

Output consists of the updated Weight Data File together with a computer printout of 
this file. The format of the Weight Data File is presented on the following page. A 
copy of the computer printout is presented following the file format. 
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JOB DECK STRUCTURE - The Update Program is run as a separate job independent of 
SPACE. The job deck setup for processing the system Update Program appears below: 


CARD COLUMNS 

1 8 16 — -72 

$ ID CHARGE NO., NAME, PAY NO., UNIT NO., PROGRAM, MODE 

$ PAUSE (MOUNT RELOAD TAPE) 

$OPEN 

$IBJOB SYSUPD MAP, DLOGIC 
$ RELOAD 106, NAME = SYSUPD, SRCH 


I (INPUT DATA DECK) 

$IBSYS 
$ CLOSE 
$ IBSYS 

EXAMPLE OF INPUT DATA DECK 

CARD COLUMNS 


1 7 — -72 

RESTO 9 1967 6 1965 2. 5. 1. 0. 0. ITERAT * 

5650103 TEST CASE 


1 

12673. 

.52 

.44 

.04 

0 . 

* 

2 

13411. 

.48 

.40 

.12 

0 . 

* 

3 

13505. 

.48 

.40 

.12 

10 . 

* 


END * 

END OF ADDS * 

AUG 1965 PRINT * 

S 0662501 8 1967 * 

0652703 54000. .53 .43 .04 6 1965 * 


END OF UPDATE * 
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RECORD 1 


(I 


RECORDS 2-N+1S 


STATUS 
DATE 1 
PATE 2 


CASE NO 

NA 

N 

WHOA 

AA 


AA NA 

TITLE, 


TITLE q 


TIME, 


TIME k 


^N 

WEIGHT, 


WEIGHT.. 


N 

CALC, 


CALC n 

ACTUAL^ 


ACTUAL^ 


CASENO 


CASENO 


CASENO 




STATUS = a number associated with each 
weight data file (integer) 

DATE 1 = MM/DD/ 

DATE 2 = YY 

CASENO = case number (integer) 

NA = number of entries in array AA 

N - number of observations 

WHOA = RESTO 

AA - control parameters 

TITLE = case title 

TIME = time points 

WEIGHT = observed weights 

EST = estimated percentages 

CALC = calculated percentages 

ACTUAL = actual percentages 

B = nonrandom changes 

TILT = dummy word which signals the end 
of the WOF 

NOTE - Record N+l is a dummy record 
the first word of which is the 
word TILT. 
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RESTO 8 
661521 


1867 


FILE STATUS MO 15 DATE 
1 1964 2.009 5.000 1,900 0.909 0.000 

C/M GROSS CONTROLS ♦ DISPLAYS SYSTEM HEIGHT 


07/14/65 

ITERAT 


DATE 

WEIGHT 

EST 

CAL 

ACT 

OUYOFF 

JAN 

64 

280 

92 

8 

0 

0 

FEB 

64 

300 

32 

69 

0 

0 

MAR 

64 

299 

20 

80 

0 

0 

APR 

64 

319 

21 

79 

0 

0 

HAY 

64 

319 

21 

79 

0 

0 

JUN 

64 

315 

21 

79 

0 

0 

JUL 

64 

324 

40 

60 

0 

0 

AUG 

64 

327 

40 

60 

0 

0 

SEP 

64 

364 

40 

60 

0 

0 

OCT 


373 

40 

60 

0 

-10 

NOV 

64 

246 

70 

30 

0 

125 

DEC 

64 

243 

70 

30 

0 

0 

JAN 

65 

258 

70 

30 

0 

0 

r EB 

65 

293 

100 

0 

0 

-33 

HAR 

65 

294 

100 

0 

0 

-1 

APR 

65 

295 

100 

0 

0 

0 

HAY 

65 

300 

100 

0 

0 

0 

JUN 

65 

296 

190 

0 

0 

0 
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_ T B F T C MAIN LIST .RFF 

REAL INPUT 

INTEGER CASENO.T ILT.CASE 

INTEGER STATNO.WDCT.OLDST. STATUS. YEAR 

CO MMO N /GGDA TE/DA TE ( 2 ) 

DIMENSION DATE2 (2 ) , YAT ( 12) .B ( 100 ) ,X ( 15 ) 

DIMENSION AAI20) T bB<9) t CC ( 6 1 » C T NP ( l oooo i 

DIMENSION T I ME ( 100) .WEIGHT ( 1 00 ) , ES I ( 100 ) .CALC (ICO) .ACTUAL (100) 

DIMENSION U ( 3 ) . AOUT ( 3 ) .CH ( 2 ) 

DIMENSION NlNP(inOOP) 

D I MENS I.0N. AAA( 20) .BBD ( 9) .CCC (6) .TT ( 1.QC ) .W( 1^ 0) « E E ( 1 0 o ) . C A ( IDO ) * 

i ac non ,by nuYC) 

DTMFNSTON QMliil 

DIMENSION BLK ( 1 2 ) 

_ EQUIVALENCE L DM.Q.T.(.2l ,iCMQJ.) , 

EQUIVALENCE ( L L T I M , CCC ( 1 ) ) 

EQLLI VALENCE ( AA ( 3 1 . MONT ELI, a ( A A l A ) . YE AR ) 

EQUIVALENCE ( KT I ME . CC ( 1 ) ) .(CINP.NINP) 

DATA FND.UF. INPUT x UP DA T ELLSHFND . 2H0F . 5H I NPU T . AH! IPDA TF / . £ 1 1 F/4Hh I l„ T / 

DATA TILT/4HTILT/ 

DATA. . S »£CA , P/lHS..t3 HEC A.^. m P. / 

DATA CH /6H CHA NG * 1HE / , AC A RD/6H A CARD/ .CCARD/6HC CARD/ 

.DATA U . / 6 HM ON T HL ». 6 H Y UPDA »2HTE/ ».BOPF /6KBUY0FF / 

DATA BLK/4H J AN .4HFEB .4HMAR . 4HAPR .4HMAY *4H JUN . 4H JUL . 4HAUG , 

1 4HSEP . 4H0CT x 4HN0 V « 4HDFC / 

DATA ADDS /4H ADDS/ 

DATA PRINT/ 5 HP R. IN T / 

data ast/ih*/ 

c 

_£ MOUNT WF1GHT DATA FILL ON 1 1 N T T fi I 


READ ( 1 ) OLDST »D4T r 2 

-STATNG. =.. OLDSI— + .1 . .. 

WR I T E ( 2 ) S T A TNO , DATE 

WRITF13I STATNO.DATF 

K S W I T = 0 

.NN.= Q . ... . 

L = 2 

CALL RLADHl AAA.NAA.-WHQAAJ- 

I F ( NAA .NE. 3 ) GU TO 7990 

QM QT ( 1 ) = AAA ( I ) 

DMOT ( 2 ) = AAA ( 2 ) 

GO TO 9?^ 

7 9Q NN = Q. 

CALL RFADH ( AAA , NAA .WHOA A ) 

I F ( AAA ( 1 ) .EQ.END .AND, AAA(2).EQ.0r .AND. AA A ( 3 ) . EQ . ADDS ) GO TO 805 

7990 READ (5.798) CASE . BBB 

798 FORMAK 17 .1 1X DA6) ... 

800 CALL READH(CCC.NCC.WHOC) 

I F ( NCC . EQ. 1 .A ND. CCC(l) .EQ. END ) GO TO 801 

NN=NN+1 

TT ( NN ) =LLT I M 
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kw(.im>.=c rr 1 2 a 

EE ( NN ) =CCC ( 3 ) 

CM NN ) = CXC1.4 ) 

AC ( NN ) =CCC (5) 

T f < Nrr .fo. s j — crc ( 6 ) =£1« i 

BY( NN) =CCC ( 6 ) 

cq t q ann 

8 C 1 I F ( KSWIT .EO. 1 ) GO TO 8021 

8 D2_ READ! 1 ) CASENO.NA.N. WHOA « ( AA ( I > « I = 1 « NA 1 . Bh . ( T T MF ( T 1 . T = 1 « N ' . ( WE I GH 
IT ( I ) , 1 = 1 ,N ) » ( EST ( I ) * I = 1 ,N) , ( CALC ( I ) » 1=1 »N) » < ACTUAH I),I=1,N),(B(I) 

2_,1=1.M — 

8 C 2 1 I F ( CASENO .EQ. TILT ) GO TO 8031 

8-03 -T F I GASF .GT. CASFNO \ GO TO 804 

8 0 31 WRITE ( 2 ) CA SE , NA A * NN , WHOA A , ( AAA ( I ) ,1=1* NA A ) ,BBB, ( T T ( I ) , I = I * NN ) , 

1 1WW LI U-LgJL tN N) . ( Et( 1 ) .i = l. N N) .JXA-L1) ♦ 1 = 1 , N rU-.-LACLl ) . 

2 NN ) , ( BY ( I ) , 1=1 ,NN) 

ICSW.IT=1 .. 

IF! CASE .EG. CASENO ) KSWIT=0 

GO TO 7 99 

8 04 WRITE ( 2 ) CASENO , NA , N , WHOA , ( A A ( I ) , I = 1 ,NA ) , bB , ( T I ME ( I ) , I = 1 , N ) , ( WE I GH 
ITT I 1 * I = 1»N) EST.LUU-=I-»ML»-1-CAL.CJ I ) » I = 1 » N ).» LACI11ALXL1.> L=.l.i.N.i.im (_LJ_ ... 

2 , 1 = 1 ♦ N ) 

. . .GO TO 802 - - 

8C5 IF! KSWI1 . EO. 0 ) GO TO 8052 

flGSI U'RITF ( 7 ' CAGFNO.NA .N.WHOA « I AA I 1 1 .1=1 .NAl.Rri.fTTMFl 1 >.T = 1 »Nl «(VJEI GH — 
IT ( I ) ♦ I = 1 *N) , ( LST ( I ) , I = 1 *N) , ( CALC (I),I=1*N),( ACTUAL (I)»I = 1»N)»(B(I) 

_ . 2, 1 = 1 .N) - ... - - - . 

IF! CASENO .EO. TILT) GO TO 806 

8 C 5 ? READ! 1) CAS ENO* NA s N i WfctOAM AA! I ) .1 = 1 .NAJ »BB.» tLIME.U 1^1=1.. N.L^LWELGH 
1T(I)»I = 1»N)»(EST( I ) » I = 1 * N ) » ( CALC! I ) , 1=1 »N) , ( ACTUAL! I),I = 1,N),(B(I) 

2.f = l.N) 

GO TO 8051 

8 C 6 END.. F ILE 2 ... 

REWIND 1 

REWIND 2 ~ 

REWIND 3 


CAL L READH(DMOT) . _ 

RE AD ( 2 ) STATNO.DATE 

WRJTE (.3 ) STATNO.DATE 

825 LINES=C 

WR I TE ( 6 . 796 ) ST A T NO ♦ DMOT ( 1 ) < KHOT .DATE 

796 FORMAT ( 1H1 .43X31HW EIGHT DATA FIL E// 

1 . 4 2X36 H RE CORD OF UPDATING - FI L E STAT Uo N O 1 2/ / 

2 45X21 HLAST MONTH ON FILE - A3, 1X14// 

3 53X6HDATE 2A6/// _ 

4 4 1X37HCASE UPDATED UPDATED PREVIOUS/ 

5 41X35HNUMUER STATUS WFTGHT WEIGHT//) 

1=0 

_.J .CALM R.EADH.LX ^WD C T . W HO) 

IF ( X! 1 ) .EQ. END. AND.X (2 ) .EQ.OF.AND.X ( 3) .EQ. UPDATE ) GO TO 3 

1 = 1+1 

J=15*( I-l ) 

CINP! J+l) =X ( 1) 




c 

_Ll=i2 

30 READ ( L ) C ASENO » N A »N , WHOA » < AM I ) , I = 1 ,NA > »BB , ( T I ME ( I ) , I = 1 , N ) , ( WE I GH 

IT I_1 ) , .I = 1,NL,l1.E-SI1I ) , .I.= 1_ ,N) _M-CALC( I ) , 1=1 ,N) , ( A CTUAL ( T ) , 1=1 ,_N) , ( B ( I ) 

2,1=1 ,N) 



I F ( CASENO .LT. NINP(J+1) ) Gu TO 6 

A WR I TL( 6 ,797 1. NIN P( J+l 1 

797 FORMAT ( 62H CASENO ON UPDATE CARD IS MISPUNCHED. OFFENDING FIELDS R 

GO TO 31 

A WRTTFm rA^FNO.NA.N.WHOA.lAil ll.lzl .N4 I .RR . ( T I MF I Tl . T = 1 . N ) . f UII-' Tf,H 


IT ( I ) , 1 = 1 »N) , ( EST ( I ) , 1 = 1 ,N ) , ( CALCI I ) ♦ 1=1 ,N) , ( ACTUAL (I),I = 1,N),(B(I) 

Zs L= 1 ,.NJ - 

L INES = L INES+1 

LF-i- 4&__L_. _G£L _LQ_.I2S. 

L I N ES = 0 

WR I T E ( 6 , 796 I ST A T NO , DMOT ( 1 ) ,KMOT , DATE 


795 NT 1 = T I ME u\ i 

KTl= MONTi-U- NTl- l 

LT 1 = (KT1-D/12 

Y.E AR=Y£ARji- L T 1 

NP= KT1-12*LT1 
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I E L V/nry - E£u 7 j bu .LQ„. 1 o 

I F ( WDCI.EQ.6 .OR. WDCT.EQ.10 .OR. WDCT.EQ. 
WR I TE ( 6 . 790 ) N T NP ( J+l ) 

12 ) GO TO 79 


790 

FORMAT (28H HEADER CARD ERROR. CASENO = 17) 

GO TO 8 1 


c 

r 


9 

N = N+ 1 

TTMF(NI=TTME ( N — I j+JL. __ 


89 

K = N 



90 

WEIGHT(K)=CINP( J+2) 

FAT ( K 1 -C T NP ( J+3 1 


CALC (K)=CINP ( J + 4 ) 

ACTUAL ( K I =C I NP ( J+5 ) 

B(K)=CINP( J+6) 
GO TO 31 


10 

KMONTH=N I NP ( J+7 ) 

K YFAR=NTNP( J+8) 




POINT = 12* ( KYEAR - YEAR ) + KMONTH - MONTH + 1 
DO I 1 T 7 = 1 ,.N 


1 1 

I F ( POINT .EQ. TIME! 12) ) GO TO 12 

CONTINUE 


I F ( POINT .LT, TIME(N) ) GO TO 111 
N = N+ 1 



T I ME ( N ) =PC I NT 
GO TQ 89 



ili' 

789 

WRITE(6*789 ) N I NP ( J+l ) 

FORMAT (41 H TIME MISPUNCHED ON HEADER CARD._ 

CASENO =17) 

r 


60 TO 31 



12 

K = I 2 

GO TO 90 



13 

KM0NTH= N I N P ( J + 3 ) 
CVFfiRs N r NP ( J + 4 \ ... 


PO I NT = 12*(<YEAR'-YEAR) +KMONTH -MONTH + 1 
DO no T 3= I .N 


1 30 

I F ( POINT .EQ. TIME! 13) ) GO TO 131 

CONTTNUF 



1 3 1 

GO TO 111 

HI T 3 ' = C T NP ( J + 7 ) 


r 


60 TO 31 


c 

r 


A CARD CHANGES 



79 

KMONTH=N I NP ( J+4 ) 
KYEAR=NINP( J+5) 


POINT = 12* (KYE AR-YEAR ) + KMONTH - MONTH 

I F t POINT .EQ. 0. ) GO TO 81 

NPO I N T = PO I N T +1. 
IP = 0 


80 

IP=IP+1 

TIME! IP )=T I ME (NPO I NT) -POINT 


WEIGHT! IP ) = WEIGHT ( NPOINT ) 

EST ( I P ) =EST ( NPO I N T ) 
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CALC( TP)=CALC(NPOINT) 

ACTUAL ( IP)=ACTUAL(NP0INT) 

R I IP1=B(NPQINT1 

npoint=npoint + 1 

TFl NPOINT . LE . N 1 G Q TO 80 

N= I P 

Ri NA=WDCT 

LL=J+1 

DO 8? I 3 = 1 » NA 

LL1=LL+I 3 

8? A A ( I 3 ) =C I NP ( LL 1 ) 

GO TO 31 

880. AA ( 1 ) =C I NP ( J + 2 ) 

AA ( 2 ) =C I NP ( J+3 ) 

QO TO 31 

881 AA ( NA 1 =C T NP ( J+3 ) 

AA ( NA-U--C. INP ( J±2A- 

GO TO 31 

88? A A ( 7 l = f T MP t J+2 ) 

A A ( 8 ) = CINPtJ+3) 

AA(Q1= Cl NP(J* Aj 

AA ( 10)= C I NP ( J+5 ) 

on TO 81 ■ 

188 W R T T F ( 3 1 C AO FNO « N A . N « WHOA . ( A A I 11.1=1 .iMAl.BR. (TTMFt I)«I=l.Nl.(WFT GH 
1T(I)»I=1*N)*( EST (I)»I=1,N),( CALC (I).I=1*N),( ACTUAL (I),I=1»N),(B(I) 

2, Ip UN) 

END FILE 3 

REVUND 4 

REWIND 2 

RFWIND 3 

L I NES=0 


788 FORMAT ( lHl , 28X61HC HRON^lOGICAL RECORD OF C 

1 HAN OF 8// 

242X15HFILE STATUS NO I2.4X6HDATE 2A6/// 

35X42HC ASF NUMBER D L SCR .LE. T 1 ON OF .... CHANGE LL \ 

DO 83 12=1* IMAX 

Jj-LSJU 12- 4,-) - ■ - 

WDCT=NINP( J+15) 

I F t wncT .FQ. ? .AND. C I NP ( .1+] 4 ) . F-Q . S__) GO TO- 86 - 

I F ( WDCT .EQ. 2 .AND. CINP(J+14) .EQ. P ) GO TO 86 

I F f WDCT . 80 . 4 .AND. CINP(J + 14) .FQ. EC.A ) GQ TO. 86 

I F ( WDCT .EQ. 3 ) GO TO 85 

IF 1WDCT .EQ. 5 ) GQ 10 — $Jt 

IF ( WDCT .EO. 7 ) GO TO 87 

IF! WDCT . .FQ. 6 .OR. WDCT. EO. 10 » O R j^-WDCT., EQ . 1 2 .1. GO _ _UL_8i>^ 

WR I TE ( 6 * 787 ) NINP(J + 1) 

787 FORMAT (5X17 .2X17HHFADER CARD, ERROR/ /_ ) 

GO TO 83 

. -84 &.ouT(n=um 

AOUT ( 2 ) =U ( 2 ) 

AOUT ( 3 ) =U ( 3 ) _ 

GO TO 88 

85 AOUT ( 1 )=BOFF 
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8 5 0 AOUT ( 2 ) =CH ( 1) 

AOUT ( 3 ) =CH ( 2 ) 

£0. .1.0 88 - - - 

86 AOUT ( 1 ) = ACARD 

. GO.. TO 850 ... - 

87 AOUT ( 1 ) =CCARD 

GO TO 8 50 

88 WR I TE ( 6 , 786 ) N I NP ( J+l ) » AOUT 

786 FORMAT (6X17. 14X3 A 6.1 — - 

LINES = LIi'\IES+l 

. IF ( LINOS .LE.„ . 5_v_ J OQ — JO — 80 

LINE3=0 

WR T T F ( 6 . 78 fi 1 S T A T NO , DAT E 

83 CONTINUE 

READ 1.3 ) STATNOiiiAIE — 

9 2 READ! 3 ) C ASENO ♦ N A ♦ N ♦ WHOA ♦ ( A A ( I ) ♦ I = 1 , NA ) , BB , ( T I ME ( I ) ♦ I = 1 ♦ N ) , ( WE I GH 

IT ( .I .) , I=1,N) , (ESI II ) i.L=LiNl tiCALCLIJ .1 1_= LiJJl » (ACTUAL! I ).,I=1»N) , (B(I) 
2,1=1 ,N) 

T F ( GAGFNO .FQ. TUT 1 GO TO 93 

I F ( NA . EQ. 12 ) GO TO 94 

WRIT E( 6,785 ) . ST A I NQ_,D AI£ »WHQA, ( AA ( I 1,1 = 1 , NA ) 

785 FORMAT ( 1 H 1 ,41X15 HE ILL STATUS NO I2.4X6HDATE 2 A 6 / / / 1 X A6 , 2 X I 2 , 2 X I 4 , 

12X1 2 «.2-XJ 4 , 5 ( 1XF 7 . 3 ) « 2XA67 J.\ 

GO TO 96 

Q4 WRIT I [iii784) SI A 7 NO . U A T L . J HQ A , ( AA ( I 1 , I = 1 , NA 1 

784 FORMAT ( 1H1 ,41X15HFILE STATUS NO I2.4X6HDATE 2 A 6 / / / 1 X A6 , 2 X I 2 , 2 X I 4 , 
12X12,2X14,5! 1XF7. 3.) ,2XA6,2XE8.C ,2XF6.0//1 
— 6 WRIT t. ( 6, 73 3 ) C A S E N 0 » B B 
783 FORMAT ( 1X1 7, 11X9A6//J 
WRITE ( 6 , 2 n !. ) 

7,:.' FORMAT 1 / 6 X 3 6HDA T E WEIGHT LOT CAJ ACJ 3 UYQ F F/ . 7 . ) 

N p a R = Y F a R - 1 ion 

NP=MON T 1 1- 1 

DO 91 J = 1 , N 

I F ( J • EO » 1 ) .GO TO 7239 . . 

I F ( IT I ME ( J ) -TIME(J-l)) 1. ) GO TO 72 39 

K. 3= TIML(J) -TIME(J-l) - .5 

DO 7240 I 4=1 , K3 

__NP = NP + 1 . _ 

IF (NP .LE. 12 ) GO TO 724n 

NP = 1 . 

NEAR =NE AR + 1 

7240 WRITE ( 6,7741 ) BL K ( NP ) , N E A R 

7241 FORMAT ( 5XA4 ,12) 

7239 NP = NP+1. .. ...... .... 

I F ( NP ,LL. 12 ) GO TO 7238 

NP = L . ... . .... . 

NEAR=NEAR+1 

7 2 38 NW = WEIGHT ( J ) + . 3 

NEST = (EST ( J ) + • 0 0 5 ) *100. 

NC ALC = LCALCl J1 + .U05 )»1 Q3. .._ 

NACT= ( ACTUAL ( J ) +.0C5 )*100. 

WRITE! 6,782 ) BLK(NP) .NEAR , NW , NEST ,NCALC,NAC T ,NB 
782 FORMAT (5XA4, 12,1X17,2 XI 3, 2X13, 2 XI 3,1X15) 
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SUBROUTINE GETDAT - 67S 

This subroutine is available to each of the four trending programs and the History Plot 
Program. Its function is to move data from one storage location to another prior to 
the actual operations which are performed on the data. The subroutine is also respon- 
sible for calling the Normalization Routine 68S. 


Control over this routine is maintained by the calling program. 
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SIbFTC Gfc T DAT LIST, REF 

SUBROUTINE SET DAT ( IPSWT »I1*NCAS) 

COMM( N /BLOCK/ NCASE (10) * T T I T Lt l 9o ) , AAA (150) 

1 TBLOCK ( 30u ) » WbLOCK ( 300 ) , EBLOCK1300) 

2 CdLOCK ( 300 ) , AOL0CKI3U0), doLGCKOOO) 

COMMON /PROo/ ACTUALUOO) » CALC (100) , tST (100) 

1 LSQR (100) » MEAN (100) , MCONF (lOo) 

2 MSQR (100) » PCGNF (100) , SI (100) 

3 TIME (100) » WE lGHT l 1 uu ) , DOY (100) 

A N , NTOT 

COMMON / HHP/ IUPT, JOPT » KuP T * NPAT H 
NCAS = NC ASE ( I 1 ) 

N = NNUM ( I 1 ) 

I PSWT = NANUM ( II) 

K 1 = 1 5* ( 1 1 — 1 ) 

DO 1001 12=1, IPSWT 

K1=K1+1 

1U01 COM ( I 2 ) = AAA < Kl ) 

K 1 = 9* ( I 1-1 ) 

DO 1003 12=1,9 

K1=K1+1 

1003 T I TLE( I 2 ) =TT I TLE( Kl ) 

K 1 = 3 0# ( I 1-1 ) 

DO 1005 1 2 = 1, N 

K 1 =K 1 +1 

TIME ( I 2 ) =T BLOCK ( K1 ) 

WEIGHT (12) =WBLOCK( K1 ) 

EST ( I 2 ) =EBLOCK ( K1 ) 

C ALC ( I 2 ) =CBLOCK ( K1 ) 

ACTUAL! I 2 ) = AbLOCK ( K 1 ) 

1005 BUY ( I 2 ) = BB LOCK ( K 1 ) 

CALL N0RM12 (KOPT) 

RETURN 

END 


, NANUMl 10) * 
, NNUM ( 10 ) , 

, COM ( 12) , 
• UW2 ( loo ) , 
, 52 ( 100 ) , 
, II TlE l 9 ) « 
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NORMALIZATION SUBROUTINE - 68S (NORM 121 

Normalization is the process Of removing the effects of nonrandom changes from the 
data prior to trend prediction. Nonrandom weight changes are those changes not 
mathematically a part of normal weight growth. Two types of nonrandom weight changes 
are recognized by the subroutine; 

a. Nonrandom changes No. 1 - These changes are, in general, buyoffs or trans- 
fer of weight between functional systems. 

b. Nonrandom changes No. 2 - These changes consist of gross error eliminations 
or rejection of monthly changes which exceed preset criteria. The term 
outlier will characterize these changes. 

NORMALIZATION USING NONRANDOM CHANGES NO. 1 

We have n data points, or observations, U , U U . These points are normal- 

12 n 

ized by applying all nonrandom changes, r., which are furnished as input, in the fol- 
lowing manner. If r. is the amount of change associated with the i-th observation 
U., then 


n 



i = k + 1 


represents the data normalized with nonrandom changes. Of course, if r^ = 0 for all i, 
then no normalization takes place and V. = U.. It should be noted that a nonrandom 
change is by definition positive if the weight was forced down. Consequently, a positive 
nonrandom change results in subtraction of weight while a negative nonrandom change 
results in addition of weight. 

NORMALIZATION OF OUTLIERS 

The points V. undergo a second normalization if this option is specified in the input. 
The average monthly increment, V, 


is computed with the standard deviation 
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a 


v 


n 

I I < V i - V i-x> 


vr 


i = 2 


n - 2 


Each monthly increment, V. - V.^, is compared with the average V. If it deviates 
from the average by more than ±2cr v , it is assumed that the particular increment was 
not completely random. A nonrandom change, r^ , is therefore postulated and is: 

f -(V. - V. - V) if (V. - V. - V) s 2 <t 
I 1 1-1 1 1-1 v 


r. 

i 


= < 


-(V, 


V i-i 


- V) if (V. - 


V. 


1-1 


V) < 2a 


^ 0 otherwise 

Normalization then is completely analogous to that above, namely 


n 



i = k + 1 


The subroutine allows four options: 

Option 0 - No normalization of data is performed. 

Option 1 - Removal of nonrandom changes No. 1 only. 

Option 2 - Removal of nonrandom changes No. 2 only. 

Option 3 - Removal of nonrandom changes No. 1 followed by removal of nonrandom 

changes No. 2. 


The user must specify which option he desires on the trend prediction card which is 
read by the Control Program 55S. For a detailed description of this data card see 
program 55S. 
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SIBFTC NORM12 LIST .REF 

SUBROUTINE NORM12 ! I ARG ) 
REAL MCONF 


COMMON 

/PPOG/ ACTUAL! 100) 

. CALC 

( 100) 

. toT 

< 100 ) 

, CUM 

( 12) 

* 

1 

LSQR (100) 

, MEAN 

( 100) 

* MCONF 

( 100 ) 

* UM2 

l 100) 

t 

2 

MSQR (100) 

, PCuNF 

( 100) 

» SI 

<100) 

t 

(100) 

> 

3 

TIME 1100) 

* rttibhT ( 1UU) 

* DU Y 

( luu ) 

t T X T L 1 1 9 ) 

» 


4 N . NTOT 

COMMON /HHP/ IOPT.JOPT.KOPT.NPATH 

DIMENSION TH( 100) »WH ( 100 ) .EH( 100 ) . CH ( 1 00 ) . AH l 100 ) , bH ( 1 00 ) , 
1 NAST ( 100) *NT ( 100) * D I F ( 100) 

C 

IF ( NPATH .NE. A) 60 TO 10Q1 
DO 3493 I =1 *N 
TH( I 1 -TIME C I > 

WH( I ) = WEIGHT! I ) 

EH! I ) =EST ( I ) 

CH! I ) =CALC ( I ) 

AH ! I ) = ACT UAL I I ) 

3493 BH! I )=BUY! 1 ) 

NT! 1 )=1 

K4= 1 

DO 3494 I =2 »N 

IF! ( TH Cl) — TH(I-l)) .EQ. 1. ) GO TO 105 

K3 = TH! I ) - TH ( I— 1 ) — • 5 

XWZ= ! WH ( I ) -WH ( I -1 ) ) /FLOAT ( K3+1 ) 

DO 3495 13=1. IC3 

K4=K4+1 

TIME(K4)=TIME(K4-1)+1. 

NT ( K4 ) =TH ( I ) 

BUY ( K4 ) =0 . 

3*95 WEIGHTIK4) = WE I GHT ( K.4- 1 ) + XWZ 
105 K4 = K.4 + 1 

TIME(K4)=TIME(K4-1)+1. 

NT ( K.4 ) =TH ( I ) 

WEIGHT (K4) a HHII] 

EST ! K4 ) =EH I I ) 

CALC ( K4 ) =CH ( I ) 

ACTUAL(K4)=AH( I ) 

3494 BUY I K4 ) =BH ( I ) 

N=K4 

1001 CONTINUE 

DO 1004 MEM= 1 >N 
MCONF (MEM) = 0.0 
1004 UW2 (MEM) = WEIGHT ( MEM ) 

C 

C IF I ARC. IS 1. PtRFORM NORMALIZATION NO. 1 ONLY 

C IF I ARG IS 2. PtRFORM NORMALIZATION NO. 2 ONLY 

C IF I ARG IS 3. PtRFORM NORMALIZATION NO. 1 AND 2 

C I ARG IS 1 OR 3. NORMALIZATION NO. 1 IS RtuUlRtO 
IF ( IARG.Lt.O) GO TO 59C 1 
IF ( I ARG.GT .3 ) GO TO 5901 
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IF (IARG.EQ.2) GO TO 5801 
00 1007 I 2 = 2 »N 

I F ( BUY (12) ,EQ. 0. ) GO TO 1007 

122 = 12-1 

DO 1006 13=1,122 

1C 06 wEIGHTt I 3 ) =WE I GHT l I 3 ) -BUY ( 12) 

1007 CONTINUE 

IF (IARG.NE.3) GO TO 5901 
C TO REACH 5801, I ARG MUST BE 2 OK 3 
C AT 5801, BEGIN NORMALIZATION No. 2 
5801 CONTINUE 
SUM=0« 

L = N - 1 
V = L 

DO 118 1=1, L 

DIFtI) = WE I GHT ( I + 1 ) - WE I GHT ( I ) 

118 SUM=SUM + DIFtI ) 

SUM=SUM/V 

S I GMA=0 . 

DO 119 1=1, L 

119 S I GMA=S I GMA + ( D I F ( 1 ) -SUM ) **2 

S I GMA= SORT ( SIGMA/FLOAT (N-2 ) ) 

TW06 IG=2 • *S I GMA 

DO 120 1=1, L 

DDIF=DIF( I ) -SUM 

I F ( DDIF .GE. (-TWOSIG) .ANO. UDIF .LE, TWOSIG) GO TO 120 
MCONF ( 1 + 1 ) = -DDIF 

do i; l j=i , i 

121 WEIGHT(J) = WEIGHT(J) + DIFU) - SUM 

120 CONTINUE 
122 CONTINUE 

5901 RETURN 
END 
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DOUBLE PRECISION MATRIX INVERTER - 69S (DPMI) 

DPMI is a double precision floating point matrix inversion subroutine employing the 

Gaussian elimination method with partial pivoting. The calling sequence is: 

CALL DPMI (N, A, AI) 

where N is a location containing the number of rows (columns) in the 
matrix to be inverted (address integer). 

A is the first location of a block containing the matrix to be 
inverted. 

AI is the first location of a block of at least 4N 2 locations. Upon 
return, the inverse will be stored in the first 2N 2 locations of 
this block. 


DPMI 


NAME 


RTRN 

DET 
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ENTRY 

DPMI 

SAVE 

1*4 

CLA 

3 t 4 

STA 

NAME+3 

CLA 

4,4 

STA 

NAME+4 

CLA 

5,4 

STA 

NAME+5 

CALL 

DP MI1(*** **»**, DET ) 

CLA 

1 *4 

PDX 

*1 

TXL 

RTRN, 1,3 

CLA 

6,4 

PAC 

*4 

CLA 

DET 

STO 

0*4 

CLA 

DET + 1 

STO 

1*4 

RETURN 

DPMI 

BSS 

2 

Extern 

END 

DPMI1 



u u 
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SIBFTC DPMI 1 LIST *REF 

CDPMI - - - SUBROUTINE DPMI - - - 

C 

C DOUBLE PRECISION MATRIX INVERTER 

C 

C THIS IS THE SUBROUTINE DMI1 BY M. J. SULLIVAN MODIFIED dY AM olSuN 

C 

C EMPLOYS Old SUBROUTINE DMIl 

C DPMI ACCEPTS DOUBLE PRECISION INPUT MATRIX. COMPUTES IN DUUbLt 

C PRECISION AND PRODUCES DOUBLE PERCISION INVERSE MATRIX 

C FLOATING INPUT OUTPUT AND COMPUTATIONS 

C STORAGE IS FROM HIGHER LOCATIONS TO LOWER LOCATIONS WITH HIGH 

C ORDER WORDS IN A BLOCK SEPARATE FROM THE LOW ORDER WORDS AS IN 

C FORTRAN I I 

C MAXIMUM SIZE MATRIX IS 50 BY 50 

C SENSF LIGHT 3 IS TURNED ON FOR SINGULAR MATRIX OR FOR OVERFLOW 

C REQUIRES BLOCK OF ERASABLE STORAGE THE SIZE OF THE INVERSE BLOCK 

C (2*N**2> IMMEDIATELY BELOW THE INVERSE BLOCK 

C DETERMINANT OF INPUT MATRIX AVAILABLE 

C 

C CALLING SEQUENCE CALL DPMI ( NS I ZE » F I NPUT . F OUT PUT » FDE I ERM ) 

C 

SUBROUTINE DPMI 1 ( N ,F I NPUT . A . DET A ) 

DOUBLE PRECISION FINPUT . DETA . A . ELMAX . HOLD 

DOUBLE PRECISION HOLDR » DET 
DIMENSION FINPUT ( 1 ) ,DETA< 1 ) 

DIMENSION A(l) . ELMAX (1 ) .HOLD! 1) .HOLDR ( 1 ) .DET 1 1 ) , ICOL 125) . 1 ROW ( 25) 
DATA HOLDBP/ 01 13400000000/ 

CALL SLITETI3.K00F) 

GO TO (1.1) .KOOF 
1 MN = N 

MM=MN-1 

N2=MN*MN 

MN2=MN+MN 

JFK=N2+N2 

JGK=N2+N2 


2 


3 

CC 

CC 

4 


c 

5 


(ARRANGE HI-LO ELEMENTS OF INPUT MATRIX FOR COMPUTATIONAL EASE) 
DO 3 I = 1 »N2 
K = N2 + 1 

At I ) =F I NPUT ( I ) 

A ( K ) =0 • 

ASSIGN 11 TO ITRA 

GAUSSIAN ELIMINATION SCHEME 
TRIANGULAR SYSTEM 

DO 32 1=1. MM 
IC=I-1 
I JK= I C*MN 
L* 1 JK+ I 

PIVITQL CHOICE = MAX. ELEMENT OF SUB-MATRIX « A ( M » M 

ELMAX=0. 

IC0L( I ) = I 
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I ROW ( I ) = I 

6 DO 10 M= I *MN 

J=L+M~I 
DO 9 K= I » MN 
H0LD = ABS ( A ( J ) ) 

1 F ( ELMAX-HOLD18 .9.9 

8 ELMAX=HOLD 
I COL ( I ) =K 

I ROW ( 1 )=M 

9 J= J+MN 

10 CONTINUE 

GO TO ITRA. (11. 1 A ) 

C 

C ELIMINATE AS NOISt ALL A(I.J) btYOND U-P RANGt OF MAXIMUM A(I»J) 

C 

11 FiOLDR = ELMAX*HOLDBP 
DO 13 J=L.N2 

I F { ABS ( A ( J ) ) -HOLDR 112.13.13 
12 A ( J ) =0 • 

13 CONTINUE 

DET = ELMAX 

ASSIGN 1 A TO ITRA 
GO TO 16 

C ( AtSSF (DtT) OF MATRIX = PRODUCT uF PIVITuL VALUts) 

1A IF ( ELMAX-HOLDR) 63. IS. 15 

15 DET=DET*ELMAX 

16 CALL OVERFL ( K000 FX ) 

GO TO l 17.17.17) .K.000FX 

17 I F ( I COL ( I ) - I ) 18.20,18 

C (INTERCHANGE I TH AND K TH COLUMNS OF A) 

18 K = MN* ( I COL ( I ) - 1 ) 

DO 19 J= 1 , MN 

M= IJK+J 
HOLD= A ( M ) 

A ( M ) = A ( K+ 1 ) 

A ( K+l ) =HOLD 

19 K = K+ 1 

20 I F ( I ROW ( I ) - I ) 21 .23,21 

C ( I NT ERCHAnol I T H rtND M TH ROWS OF A AND u ) ■ 

21 K= I JK+I ROW ( I ) 

M = L 

I C=MN+ I C 
DO 22 I , I C 
HOLD=A( K) 

A ( K ) = A ( M ) 

A ( M ) =HOLD 
K=K+MN 

22 M=M+MN 

C DIVIDE I TH ROW OF A AND a BY A (I, I) 

23 1A=N2+L 
A ( I A ) = 1 . 

IC=L+MN 
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I A=N?+I JK+MN 
HOlDtA ( l ) 

DO 25 J=IC.IA,MN 
I F t A ( J ) ) 24,25,24 
24 A ( J ) =A ( J ) /HOLD 

25 CONTINUE 

CALL OVERFL ( K000FX ) 

GO TO (63.26,26) .K000FX 

C (REDUCTION OF A AND B TO TRIANGULAR FORM) 

26 DO 31 J= I » MM 
L = L + 1 

HOLD= A ( L ) 

I F ( HOLD ) 27.31,27 

27 I B= I C 

I A= I C+ ( J- I ) 

DO 30 K= 1 , MN 
IF(AIIB)) 28,29.28 

28 A( IA+1 ) =A ( I A+l ) -A ( IB)*HOLD 

29 1 A= I A + MN 

30 I B = I B + MN 

31 CONTINUE 

CALL OVERFL ( K000FX ) 

GO TO (63,32,32) ,K300FX 

32 CONTINUE 

C (REDUCE N TH ROW) 

L* JGK 
JGK=JKG-1 
J=N2+MN 
A ( L >=1. 

HOLD = A( N2 ) 

I F ( ABS ( HOLD ) -HOLDR )63»33,33 

33 DET = DET *H0LD 

CALL OVERFL ( K000FX ) 

GO TO ( 3A , 3 A , 34 ) ,K000FX 

34 DO 35 I = J , L , MN 

35 A ( I ) =A ( I ) /HOLD 
CALL OVERFL ( K000FX ) 

GO TO (63,36,36) ,K000FX 
C 

C (REDUCTION UF A TU UN 1 T Y-MA I R I X . YIELDING lb) = RlRmuT tb INVtKbc) 

C 

36 DO 41 1=1, MM 
L=MN- I 

I JK=L 
X«L+1 

DO 40 M= 1 , I JK 
DO 39 J= 1 , MN 
IC = MN* ( J- 1 ) 

I A = MN* ( K-l )+L 
I F ( A ( I A ) 137.40,37 

37 18= N2-M I C + L ) 

IC= N2+( IC+X) 
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I F ( A ( I C ) ) 38*39*38 

38 At lB)=A< 1B)-A( IC)*At IA) 

39 CONTINUE 

AO L=L-1 

41 CONTINUE 

CALL OVERFL(KOOOFX) 

GO TO <63,42,42),K0G0FX 
C 

C (UNSCRAMdLE ROWS* COLS. OK PERMUTED MATRIX* (d) TO YIELu A-INVeRSc) 

C -ROWS- 

42 I C=N2-MM 

DO 48 1=1. MM 
L=MN— I 

IF(ICOLtL)-L) 43.45.43 

43 IA=N2+L 
IB=N2+ICOL(L) 

DO 44 J= 1 *MN 
HOLD=At IA) 

At I A » = A ( IB) 

At I B ) =HOLD 
I A= I A+MN 

44 I B = I B + MN 
M = -M 

45 I F ( I ROW ( L ) -L ) 46.48.46 

C -COLUMNS- 

46 I A = I C + MN*L 
IB=IC+MN*IROW(L) 

DO 47 J= 1 ,MN 
HOLD = At I A) 

At I A ) =A ( IB) 

At IB ) =HOLD 
I A= I A+l 
47 I B = I B+l 
M = -M 

48 CONTINUE 

1 F ( M ) 49,50.50 
4 V DET = -DET 

50 DO 53 1 = 1, N2 
J=N2+ I 

53 At I ) = A t J ) 

C 

C ELIMINATE AS NUlSc. ALL b(I.J) btYuNL U-P RANGE UK MAXI muM d(I.J) 

C 

56 ELMAXsO. 

DO 58 1=1, N2 
HOLD = ABS( At I ) ) 

IF (HOLD-ELMAX) 58,58,57 

57 ELMAX=HOLD 

58 CONTINUE 
HOLDR=HOLDBP*ELMAX 
DO 60 1 = 1, N2 

IF( ABSt A(I) ) - HOLDR (59,60,60 



n n o 
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59 J=N2+I 
A ( I ) =0 • 

60 CONTINUE 
DETA=DET 

1 RETURN 

ERRORS - (OVERFLOW OR INPUT MATRIX IS SINGULAR) — INVERSE * INPUT 
63 CALL SLITE (3) 

GO TO 61 
END 
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PROBABLE ERROR PROGRAM - 70S fflSSl 

This program extracts the probable error from each functional system where probable 
error is defined as the difference between the +95 percent confidence limits and the 
mean line. These probable errors for the functional systems are then summed in a 
root sum square fashion to obtain the probable error for the stages or module. These 
numbers are then used with appropriate trade-off factors to compute a probable error 
for the total spacecraft or launch vehicle. 

The program uses the results of the Fourier model in its computations, and the binary 
tape containing the Fourier output must be premounted. The following pages give ex- 
amples of an input deck and typical program output. 


SAMPLE OF RSS INPUT DECK 



CARD COLUMNS 

1 8 

MIS ION 207 3 67 503 5 67 506 8 67 * 

PARTS 0611900 S/C FACTOR 1.0 3.026 5.9363 * 

PARTS 0640500 S/C FACTOR 1.0 1.0 1.0 * 

PARTS 0651500 S/C FACTOR 1.0 2.8165 2.0772 * 

ENDCSE * 

MISION 


ENDCSE * 


MISION 


ENDCSE * 

END RSS* 

NOTE 


72 


The last card in the deck is END RSS. Upon encountering this 
card, the program will pass control back to SPACE. 
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MISSION 

207 

503 


5U6 

SHIP DATt 

3/1967 

5/1967 


8/1967 

*11*01 

287,ii 

82463,78 

3q2 , 64 

*15*3,09 

324 

*55 

105332,0* 

6 1 1 V o 2 
*ii 9 c3' 

2**15 

849 i 4 4 

,.3y 2 

943,82 

32 

,95 

10*5,39 

?1*.69 

47825,04 

230,52 

53136, *3 

247 

1 20 

*1109,77 

611*04 

10^.23 

10864,6* 

10*. 87 

12071,88 

117 

* 8 ? 

13882,67 

611*06 

47,41 

2247.31 

4*. 97 

24*7, 01 

53 

*59 

287i,56 

611*16 

94,48 

8*26 i 46 

**,59 

99l«,29 

10* 

l «0 

114Q6,Q.4 

*11*21 

28,59 

817,42 

30,14 

9 o B , 24 

32 

*32 

1044,48 

*11*26 

125 , 85 

l5®38 j 13 

132,66 

17597,92 

142.26 

20237,61 

6n*36 

150,94 

22783,12 

i59.lt 

25314,57 

170 

,62 

29lll,76 

611946 

64,48 

4157, 8q 

67,97 

461*, 78 

72 

,89 

5312,75 

611*56 

30,11 

9 L)6 , 4q 

31,73 

101)7,11 

34 

,03 

1158, 17 


4M.58 


468,63 


B.ij.S . VALW.6.S. 
502,55 



MISSION 
SHIP DATt 

6 4 (j b 0 6 
6 4 0 5 3 0 
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207 503 506 

3/1967 5/1967 8/1967 


43^.64 19Q6S5.51 460,26 21183’, 44 493,57 243615, 3’ 

38,44 14/7,86 4u , 52 1642, U7 43, 46 l88 8 t 38 


»,MiS, VALUES 


438,33 


462,04 


495,48 



Reference No. 70.4 

Issue Date 23 n^mh^r iqks 
S upersedes New 


MISSION 
SHIP DATE 


207 303 306 


3/19Q7 5/1967 0/19*7 


65l5(j3 
651504 
"8 51310 


299,62 

6l2il4 

iUtjf 


' 09693,37 


374715, 36 

37 6 3 o,f3' 


3l3704 

645,25 

“237767 


333 


691 


92 


96 


114864,02 

478802,99 

■75eli 2l 


651517 


651526 

651527 


651536 

651537 


651546 

651547 


651556 


-OtOO 
62. 2T 
Ox 05_ 


10 


142.00 

90.24 


161,61 

453 4 ?2 

79,75 


3f77 , 2 

OxM 

20390,83 

8143,03 


0.00 


65,64 

0j_0J_ 


26118,03 

2Q6CL39tli- 

6339,67 


150,52 

95,12 


4300710 

0.00 


0 

Tff 


1?0 » 36 
478 ,47 
84,06 


w | v y 

22656,48 

9047,81 


161 

102 


IS 

£9 


OiM_ 


228932,37 

7066,31 


T0a 

• 4 


42 

if 


605*732 

— H 


26054,9 
1Q4Q4,9< 


68 


w 

• I 


90 


15 0121 


a.«: 
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SIBFTC REPORT LIST, REF 

C THIS ROUTINE WILL GENERATE ROUT MEAN SQUARE REPORTS FOR STRUCTURAL 
C DATA. 

C ALL SOBROUT I Nt COMMUNICATION v*ILL BE THROUGH THE ('A') ARRAY. 

C THE FIRST 50 WORDS OF THE iA» ARRAY WILL dE RESeRVEu FOR CONSTANTS 


1 


1 

2 

3 

4 


1 


1 


INTEGER REELS 
INTEGER WDCT 

COMMON /ACCeSS/ HC ( luO ) . WDC T , I U l 1 2 ) . PROG 

COMMON /SYSTEM/ N 1 APES , KeELs ( 1 5 ) .OMTRLS ( 15 ) »FILES( 15) »LRS(15) » 

POS< 15 ) * T RLPOs ( 15 ) >RwCNl ( 15 ) .uNllul 15 ) 

COMMON /PF1LE/ NF Yi-E ( 4 . 300 ) » NF Y ( A ) 

COMMON /PPOG/ ACTUAL ( loO ) .CALC ( 100) »EST ( 100) ,COMl 12) . 

LSQR ( luO ) .MEAN! 100) ,MCONF( 100) »UW2( 10U) . 
MSQR(IOO) . PCONF ( 1 00 ) ,S 1 ( 1 00 ) . S2 ( 100 ) » 

TIME (100) .WEIGHT (100) .BUY (100) *TITLE(9) » 

N.NTOT 

wOMMON /STT/ N21 »D1 »D2 » J1RUN 
COMMON /ALL / A13U00) 

EQUIVALENCE <A»K) 

EQUIVALENCE ( BLOCK. ( 1 . 1 ) ♦ A ( 1 00U ) ) 

EQUIVALENCE (All). WORD ( 1 ) ) 

EQUIVALENCE ( I CASE ( 1 ) . A ( 1 00 )) 

EQUIVALENCE l WE I GH ( 1 ) . A ( 300 ) ) 

EQUIVALENCE ( 1 M I SNO < 1 ) , K ( 50 ) ) » < I MONTH ( 1 ) , M 6U ) ) » ( I YEAR ( 1 ) . K < 70 ) ) 

. ( KRDATE ( 1 ) ,K( 80) ) 

EQUIVALENCE ( K< 3u ) .MDATE ) . ( K. I 3 1 ) » NuMCAS ) * (M32) . I EQ ) 

EQUIVALENCE ( K( 2u ) .NTAPEl ) . <M21)» N T APE2 ) » ( K ( 22 ) . NT APE3 ) . 

( Rl 23 ) .NTAPE4) . ( K ( 2 A ) , NT APE5 ) . ( K. ( 2 5 ) .NT APE6 ) 

EQUIVALENCE (NCASctl), A ( 2 00 ) ) 

EQUIVALENCE <M33)»IXI) 

EQUIVALENCE ( K ( 34 ) .MASK ) 

EQUIVALENCE ( M 9u ) , KF LAG ) 


EQUIVALENCE ( A ( AO ) . RMT ( 1 ) ) 

EQUIVALENCE ( At 5uu ) » sCF (1*1)) . t A t 250U ) . RMS (1.1)) 

EQUIVALENCE ( HC ( 1 ) . I C 1 ) 

DIMENSION SCF(8U.6) .RMSI80.6) 

DIMENSION RMT(IO) 

DIMENSION NCASE(l) 

DIME! SION K( 1) .WEIGH! 100.2 ) 

DIMENSION bLOCK ( 100 , 1 5 ) . WORD ( 10 ) 

DIMENSION K.RDATE ( 1 ) . IMI SNO( 1 ) . 1CASEI 1 ) . IMOinTh( 1 ) » I YEAR ( 1 ) 

DATA WORu / 6h N. A. . 6HTILT .6H .OH »6H . 

16H ,6H »6H . 6H ,6H / 

DATA NILT / AHTILT / 

C NOW, LET US START TO WORK 

NP = 0 

IFl WDCT . EQ. 0 ) GO TO 1 


NF Y ( 3 ) = IC1 
1 CALL PROCES 

DO 48 J=l, NUMCAS 
DO 48 1=1, MDATE 

48 RMS ( J , I ) = 0 . 0 
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KF LAG = 1 

C Trtt (AIIgggiTH) WORD STARTS THE THE INPUT BUFFlR 
1X1 = 1 

20 NP=NP+1 

IF (NP .GT. NFY13) 1 GO To 220 
NX= IS I GN( NP , REELS t 3 ) ) 

NF=REELS( 3 1*1000 + NX 
CALL READB1 (NF,1 ) 

NQCASE= ID ( 7 ) 

21 I F ( NOCASt .LT. iCASt(IXI) ) GO TU 20 

C RECORD FOUND.... NOW GO TO WORK. 

I F t NOCASt .LT. ( I CASE ( I X 1 ) + MASK.) ) GO TO 49 
C PRINT ERROR COMMENT 
IXI=IXI+1 
GO TO 20 

C CODE FOUND NOW LETS DEC I Dt ON A DAT t 

49 I EQ = 0 

50 1 EQ= I EQ+ 1 
N7 1 = I D ( 10 ) 

N= I D ( 1 1 ) 

NMONTH= I D ( 8 ) 

NYEAR= I D ( 9 )-1900 
DO 1112 171=1. N71 

NMONTH=NMONTH + 1 

I F ( NMONTH .LE. 12 ) GO TO 1112 
NMONTH= 1 
NYEAR=NYEAR + 1 
1112 CONTINUE 

NPLUSP= I D { 10)+ID< 11 ) 

NUMER=5*NPLUSP + 2 * I D ( 10) + 9 
CALL READb2tNF, ACTUAL, NUMER.HIoT ) 

CALL READS 2 INF .WEIGH! 1 . 1 ) .N.HIST ) 

CALL REA0U2 ( NF .ACTUAL .IDQul.HIST) 

call re add 2 i nf « w e i gh i 1 » 2 ) .n.hi^t i 

NCAot l I tU ) =NUCAbC 

ICE Y= I N YEAR -6v' ) *1 2 + NMONTH 

KEND=KE Y+N 

I D T = 1 

55 IF ( KRDATl t I uT ) .Ot.KtY ) GO lO oO 
IXX=ICT*2-1 

SLOCK I I E 0 » I XX) = WORD ( 1 ) 

BLOCK ( I EQ . I X X+ 1 ) =wORD ( 1 ) 

I DT = I DT + 1 
GO TO 55 
60 CONTINUE 

C COMPUTE Tut- CORRcCT Ii'iLiEXtS FOR THt CORRtCT uATto 
DC 2 1 v I = I DT .MDATE 
KtYS=KRDATE ( I l-KEY+l 
J= I *2- 1 

IFIKEYS .GT. N) GO TO 2g5 

BLOCK! ItQ.J ) =AbS( WEIGH! KtYB, 1 )-wtIGH ( KEYS .2 ) ) 

BLOC) ( IEQ, J+l)=BLOCK( IEQ, J) **2 

fyMS! I X I , I ) =RMS ( I X I , I ) +BLOCK ( I tO, J + 1 ) 
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GO TO 210 

205 BLOCK ( IEQ»J) =WORD ( 1 ) 

BLOCK ( IEQ.J+l )=WORD< 1 ) 

210 CONTINUt 
NP=NP+ 1 

I F ( NP .GT. NF Y ( 3 ) .AND. IXI .EO. NuMCAS ) GO To 214 
I F t NP .GT. NFY13) ) GO TO 220 
NX= I S I GN ( NP « REELS ( 3 ) ) 

NF= REELS) 3 )*1000 + NX 

CALL READ31 ( NF * 1 ) 

NOCASE= I D ( 7 ) 

1 F ( NOCASE .LT. ( ICASEtlXI) + MASK) ) GO TO 50 

214 DC 215 I - 1 »MDAT E 

215 RMSl IXI , I )sSQRT(RMS( 1X1 ,1 ) ) 

CALL PRINT 

IXI=IXI+1 

I F ( IXI ,LL. NUMCAS) GO TO 21 
C LeTS SUMMARIZE THE REPORT 
KFLAG=2 

DO 245 1=1 .MDATE 
245 RMT ( I ) =0.0 

DO 250 1=1, NUMCAS 

DO 250 J=l, MDATE 

RMS ( I , J ) =RMS ( I » J ) *SCF ( I , J ) 

250 RMT ( . )=RMT (J)+RMS( I » J ) **2 
DO 260 1=1, MDATE 
260 RMT ( I ) = SORT ( RMT ( I ) ) 

CALL PRINT 
GO TO 1 
22C CONTINUE 

C S 1 NCt THERE Io AN ERROR, LcT oS PROCEED TO THE NEXT CASE 

GO TO 1 
END 
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$ 1 L) F TL PROCLS LIsT, ref 
SUBROUTINE PROCES 
COMMON /ALL / A I 3o DC ) 

EQUIVALENCE (A.K) 

EQUIVALENCE (oLOCMl.l ) .A(lOOo) ) 

EQUIVALENCE (All) »WORD( 1 ) ) 

EQUIVALENCE I I CASE (1) * A 1 1 00 )) 

EQUIVALENCE ( WE I GH I 1 ) , A I 3 00 ) ) 

EQUIVALENCE ( I M I SNO ( 1 ) . K ( 50 ) ) * I I MONTH I 1 ) , K ( 60 ) ) »( I YEAR ( 1 ) » K I 70 ) ) 

1 , (KRDATE I 1 ) »K I 8o ) ) 

EQUIVALlNCE ( K< 3J ) .MDATE ) , ( K( 3 1 ) . NuMCAS ) , (KI32) » I EQ ) 

lQu I VALENCE l K( 2o ) ,N 1 APE1 ) » (KI21), N I A P E 2 ) , ( K ( ^2 ) * N I APE 3 ) , 

1 I K I 23 ) »NT AREA ) , I K ( 2A ) » NT APc5 ) , l K I 2 5 ) » NT APc6 ) 

EQUIVALENCE l 1 DA T A I 1 ) , DAT A ( 1 ) » AllUol) ) 

EQUIVALENCE I K ( 3 A ) * MASK ) 

EQUIVALENCE I K I 3 3 ) , I X I ) 

EQUIVALENCE (AUO) ,RMT(1) ) 

EQUIVALENCE I K ( 90 ) , KFLAG ) 

EQUIVALENCE ( A ( 500 ) . SCF ( 1 . 1 ) ) ♦ ( A I 2 500 ) , RMS ( 1 , 1 ) ) 

01 MENS I ON SCF (8 0,6) ,RMS(80.6) 

DIMENSION RMT(IO) 

DIMENSION K I 1 ) ,WE I GH I 1 . 1 ) 

DIMENSION BLOCK ( 100 , 1 5 ) , WORD ( 10 ) 

DIMENSION NkuATE I 1 ) , I MISNO ( 1 ) » ICASE ( 1 ) , IMOn I H I 1 ) , 1 YEAR l 1 ) 

DIMENSION CARD I 0 ( 10 ) 

DIMENSION DAT A I 5U ) , I DAT A ( 50 ) 

DATA KEV / 6HF ACT OR / 

DATA CARJI0 / 6Hi'i I s I ON , 6 HP A R f o ,6HMASil ,6H ,6H , 

16H ,6H ,6H , 6HENDCSE , 6H / 

DATA END/3HEND/ ,Rss/3HRSS/ 

C RESTORE COUNTERS 
MASK = ICO 
KFLAG = 0 
NOMCAS-G 
MDAT E = 0 


1 CALL READH (UaTA.NUM.XCARD) 

I r ( OATaII) • u Q • lNd' . ANd . o A T m I 2 ) ■ ld, Roo ) CAl L dPACe 

DO 5 ,I=1»1d 

IFIXCARD .LO.CARDIDI I ) ) GO To 9 
5 CONTINUE 
PRINT ERROR MESSAGE 
GO TO 1 

9 GO TO I lo ,20,3 d, Ac ,50, 60 , 70 ,80,90, 100 ), I 
10 MDAT E = NGM/ 3 

DO 11 1 = 1 , MDATE 
J=( 1-1 1*3+1 

S I ORE DATE hNd MISSION NoMSLR 
I MONT HI I ) = I DATA ( J+l ) 

I YEAR ( 1) = I DATA I J + 2 ) 



n n 
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I M I SNO ( I ) = I OAT A ( J ) 

XI KRDATE ( I ) =IDrtTA( J+ i ) + ( I DATA ( J + 2 )-60 ) *12 
GO TO 1 

20 NUMCAS=NUMCAS+1 

I CAGE (NUMCAs)= I DAI A( 1 ) 

IFINUMCAS .NE. 2 ) GO TO 23 
MFLA6= 1 

22 MASKED=MASK*10 
ICAS=ICASE(2) /MASKED 
I CAS« I C AS*MASK.ED 

IF ( 1 C AGE ( 2 ) .Nt.ICAS) GO TO 23 

MASK=MASKFD 

GO TC 22 

23 I F ( 1 DATA ( 3 ) .EQ.KFV ) GO TO 2A 
SCF ( NUMCAS ♦ 1 ) =-l # l) 

I DAT A ( 3 ) =0 
GO TO 1 

2A DO 26 1 = 1.6 
26 sCFINUMCAs.I )=DATA( 1+3) 

GO TO 1 
30 CONTINUE 

MASK = 1 DAT A ( 1 ) 

MFLAG= 1 
GO TO 1 
AO CONTINUE 
GO TO 1 
50 CONTINUE 
GO TO 1 
60 CONTINUE 
GO TO 1 
70 CONTINUE 
GO TO 1 
80 CONTINUE 
GO TO 1 

90 I F ( MFLAG .EQ. 1 ) GO TO 999 

SINCE NOT ENOouH INFO HAS oEci'c GIVEN. SMP THIS CAst AND wRIlt 
ERROR COMMENT 
ICO GO TO 1 
999 RETURN 
END 
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SIBFTC PRINT L I h T * REF 

SUBROUTINE PRINT 
COMMON /ALL / A ( 3000 ) 

EQUIVALENCE ( A»K ) 

EQUIVALENCE (All) » WORD ( 1 ) ) 

EQUIVALENCE ( BLOCK ( 1 * 1 ) » A ( 1000 ) ) 

EQUIVALENCE ( I CA SE ( 1 ) , A ( 1 00 )) 

EQUIVALENCE ( WEIGH ( 1 ) ,A ( 300 ) ) 

EQUIVALENCE l 1 M I SNO ( 1 ) » K ( 50 > ) » ( I MONTH ( 1 ) » K ( 60 ) ) * ( I YEAR (1 ) » K l 7u ) ) 
1 * l KRDAT E ( 1 ) .K(8U ) ) 

EQUIVALENCE (M3U) »ML)ATE) » ( K ( 3 1 ) » NuMCAS ) * (M32) , 1 to ) 

EQUIVALENCE (M2u) .NTAPcl) . (M21)» N1APE2) * ( K ( 22 ) »n! APe3 ) » 

1 (K(23) »NTAPe4) . (M24) .NTaPe 5) , ( K l 2 5 ) . NT AP E6 ) 

EQUIVALENCE (NCASE(l)* A (200) ) 

EQUIVALENCE (K(33)»IXI) 

EQUIVALENCE ( A ( 50u ) »SCF ( 1 * 1 ) ) . ( A ( 2500 ) , RMb ( 1 , 1 ) ) 

EQUIVALENCE ( A ( 40 ) , RMT ( 1 ) ) 

EQUIVALENCE ( K ( 90 ) , KFLAG ) 

DIMENSION SCF ( 60 » 6 ) ,RMS<80,6) 

DIMENSION RMT (10) 

DIME! SION NCASE(l) 

DIMENSION K(1)*WEIGH(1»1) 

DIMENSION oLOCK < 100 . 1 5 > . wOKO ( 10 ) 

DIMENSION aKuATE ( 1 ) * IMISNOl 1 ) , ICAoL (1 ) * IMOimI HUliI YtARl 1 ) 

C THIS ROUTINE PRINTS THE REPORT 
WRITE ( 6*104) 

104 FORMAT ( 1H1 ) 

WRITE ( 6,100) (IMISNOl I ) .1=1 »MDATE) 

100 FORMAT ( //3X.7HMISSION, 1 OX , 14* 5(16X*I4) ) 

WRITEI 6,103) 

103 FORMAT (/ ) 

WRITE I b,M ) ( i I MONT HI I ) , 1YEAR ( 1 ) ) , I=1 .Ml)ATE) 

101 FORMAT (2X»9HoHIP UA l e , 8X, I2,3H/19»I2, 5( 13X.l2.3H/19.I2) ) 

WRITEI 6 , 1 v/ 3 ) 

WRITE! b * 1 J 3 ) 

00 TO (1.2o0.3C!c) .KF'LAG 
1 NDATED=MDATt*2 
DO 10 KK= 1 » I EQ 

aR 1 T L ( b , 1 v 2 > NCASE ( KK ) » ( oLUCN ( KK, I ) , I = 1 .MuATEO ) 

102 FORMAT (2X.I7.2X.12F10.2) 

10 CONTINUE 

WRITE ( 6.1^5) (RMS( I XI , I ) , l =1 ,Ml>aTE) 

105 FORMAT!// 64X , 1 4HR .M . S . VALUES // 11X*6F2U.2) 

GO TO 999 

200 CONTINUE 

DO 2U KK = 1 , NUMC AS 

21b aRITl ( 6 , 1 U2 ) ICASC ( ick | . < (oCKml. I ) .Kwo ( AN. I ) ) . 1 =1 .'"•UA ft ) 

WRITE ( b,lu5) ( RMT (I ) » 1 = 1 » MDA T e ) 

WRITE ( 6,104) 

300 CONT INUE 
9 99 RETURN 
END 


1 
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$ I BFTC BDATA LI ST, REF 

BLOCK DATA 
COMMON/ALL / A (3000) 

EQUIVALENCE (A,K) 

DIMENSION K(3000) 

DATA K(20),K(21),K(22),K(23),K(24),K(25) / 1,2, 3,k, 5, 6/ 

END 
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PLOTTING SUBROUTINE - 71S (UMPLOT) 

GENERAL DESCRIPTION 

UMPLOT is an acronym for University of Michigan Plotting Routine. The philosophy 
used in writing the routine was to treat a region of core storage (subsequently, called 
the image region or simply the image) much as a piece of graph paper when plotting 
data manually. 

First, the image region is blanked out, and a grid, formed of I's and -'s (with +*s at 
the intersection points) , is placed in the image region. Given the numerical limits of 
the abscissa and ordinate, (i.e. , the maximum and minimum values of the two vari- 
ables , say x and y) , the routine can place any specified BCD plotting character at the 
appropriate position in the image for a given pair of data values (x^, y^). 

Each point (x^, y^) is plotted individually and independently of any preceding point. In 
other words , the data need not be presorted. Any number of points (x^ , y^) with any 
corresponding BCD plotting characters can be placed in the image. A character fall- 
ing on a previously plotted character will replace that character. Thus , only the last 
one plotted of two coincident data points appears in the final image. Points falling 
outside the grid limits (not in the image region) are ignored. 

When all desired points have been placed in the region , the image is copied onto the 
specified decimal output tape for subsequent off-line (or simulated off-line) printing 
or punching. Any number of duplicate copies of the graph can be produced. 

The subroutine has four main entries which perform the following functions : 

PLOT 1 

This entry to the subroutine sets up the grid spacing and the total width and length of 
the graph image. It also determines the location of the decimal points and the multi- 
plying factors (powers of 10) for values of the ordinate and abscissa to be printed at 
the grid lines. 
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PLOT 2 

This entry to the subroutine prepares the grid, examines the maximum and minimum 
values of the abscissa and ordinate, and establishes internally a formula for computing 
the location in the image region corresponding to the point (x i , y.) . 

PLOT 3 

This entry to the subroutine places a specified BCD plotting character in the appropri- 
ate position(s) corresponding to the given value(s) of (x. , y^). 

PLOT 4 

PLOT 4 (or FPLOT 4) entry writes the image of the completed graph on the output 
tape for subsequent printing off-line. A label for the ordinate is printed vertically 
(one character per line) at the left edge of the page. Values of the abscissa and ordi- 
nate are printed at the grid lines outside the bottom and left edges of the graph. 


FORTRAN CALLING SEQUENCES 


Call PLOT 1 
Call PLOT 2 
Call PLOT 3 
Call FPLOT 4 


(NSC ALE, NHL, NSBH, NVL, NSBV) 
(IMAGE, XMAX, XMIN, YMAX, YMIN) 
(BCD, X, Y, NDATA) 

(N CHAR , nHABCDEF ) 


DESCRIPTION OF ARGUMENTS 


NSCALE 

This is a vector (array) in the user's program having one or five locations. If the 
user wishes to use the standard scale factors and decimal point positions (see below) , 
NSCALE should equal zero. To alter the standard factors, NSCALE must be any non- 
zero quantity . In this case , the NSCALE array must have five locations containing the 
following information: 

FORTRAN Location Contents Function 

NSCALE (1) Any nonzero value Alter standard factors. 

NSCALE (2) I Planted values of the ordinate (y) 

are 10. P. I times the actual values. 

NSCALE (3) J Printed values of the ordinate (y) 

have J digits following the decimal 
point (J.LE.8). 



71.2 


FORTRAN Location Contents 

NSCALE (4) K 

NSCALE (5) M 
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Function 


Printed values of the abscissa (x) 
are 10.P.K times the actual values. 

Printed values of the abscissa (x) 
have M digits following the decimal 
point (M. LE. 9) . 


STANDARD SCALE FACTORS 

When NSCALE is zero, the standard scale factors are used. The effective values of 
I , J , K , and M are 0 , 3 , 0 , and 3 , respectively . The actual values are printed with 
three decimal places . 

NHL The number of horizontal grid lines in the graph image. 

NSBH The number of spaces between horizontal grid lines. 

NVL The number of vertical grid lines in the graph image. 

NSBV The number of spaces between vertical grid lines. 


NOTE 

In keeping with standard notation for graph paper, (e.g. , 10 x 10 to 
the inch) NHL and NVL are really one less than the actual number 
of lines. It is not customary to consider the axes when counting lines 
in the grid. 


IMAGE An array (vector) , dimensioned in the user's program 

consisting of N sequential locations not used between 
execution of PLOT 2 and PLOT 4, where 

N = P*(NSBH*NHL + 1) 

P = (NSBV*NVL + l)/6, rounded ujd to the 

nearest integer 

XMAX The value of the abscissa at the rightmost grid line. 

XMIN The value of the abscissa at the leftmost grid line. 

YMAX The value of the ordinate at the uppermost grid line. 

YMIN The value of the ordinate at the lowermost grid line. 

BCD The BCD (Hollerith) plotting character, and may be any 

legitimate left -adjusted BCD character (letter, digit, 
blank, or special character * , . +etc.). 

X A single location (or array name) containing the x co- 

ordinate^) of the point(s) , (x^ y^. 



Y 


NDATA 


NCHAR 

LABEL 
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A single location (or array name) containing the y co- 
ordinate^) of the point(s) , (x. , y .) . 

The number of data points (x. , y.) associated with the 
arrays x and y. With NDATA equal to 1 , a single point 
will be plotted for a single execution of PLOT 3. With 
NDATA equal to Q , Q points (x^ , y^) taken in sequence 
from vectors of length Q starting at x and y are plotted 
for a single execution of PLOT 3. 

The number of BCD (Hollerith) characters (including 
blanks) in the label array (vector) . 

The name of an array (vector) which contains the string 
of BCD characters to be printed at the left edge of the 
output page, i.e. , a label for the ordinate of the graph. 


LABELING THE ORDINATE - USE OF FPLOT 4 

The string of characters for the ordinate label appears directly in the calling sequence 
as the second argument (Hollerith) . The n preceding the H (specifying the Hollerith 
string) should be the same as the value of NCHAR. 


RESTRICTIONS ON ARGUMENTS 


NHL 

.GT. 

0 

NSBH 

.GT. 

0 

NVL 

. GT. 

0 

NSBV 

.GT. 

0 

(NSBV*NVL) 

.LE. 

101 

XMAX 

.GT. 

XMIN 

YMAX 

.GT. 

YMIN 

BCD 




Must be a left-adjusted legitimate 
BCD (Hollerith) character, i.e. , 
1H-, 1H*, 1HA, 1H1 , etc. 
(FORTRAN) 


MODES OF ARGUMENTS 

Those arguments which deal directly with data values (XMAX, XMIN, YMAX, YMIN , 
X, Y) must be in floating point mode. 
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Those arguments which deal with the arrangement of the image and the scale factors 
(NSCALE , NHL, NSBH, NVL, NSBV, NCHAR) and the number of data points can be: 

a. Floating Point 

b. FORTRAN type integers 


The routine automatically determines which mode is being used for each argument. 


LABEL and BCD must contain Hollerith information only. 



$ I BMAP 

* 


A A 

PL0T1 


A63 


Reference No. «i. o 

Issue Dat e 23 Den 1965 
Supersedes New 


UMPLOT 

PLOT] 

ENTRY 

plot i 

ENTRY 

plot 2 

ENTRY 

plot 3 

ENTRY 

PLOTA 

ENTRY 

FPLOTA 

ENTRY 

OMIT 

PZE 

0 

PZE 

0 

DEC 

6 

SAVE 

1 * 2 * A 

CLA 

3, A 

STA 

A X A 1 

STA 

A1 AA 

STZ 

A 1 7 2 3 

CLA 

A 1 6 37 

STO 

A 1 7 2 3 

CLA* 

At A 

TSX 

A 1 0 72 » 2 

TZE 

A 6 3 

STO 

A 1 6 5 3 

CLA* 

3, A 

TSX 

A 1 0 72 » 2 

TZE 

A 6 3 

STO 

A 1 666 

LDQ 

A 1 666 

MPY 

A 1 633 

STQ 

A 1 6 33 

CLA* 

6 » A 

TSX 

A 1 0 72 * 2 

TZE 

A 6 3 

STO 

A 1 636 

CLA* 

7, A 

TSX 

A 1 072 » 2 

TZE 

A63 

STO 

A 1 667 

LDQ 

A 1 667 

MPY 

A 1 6 36 

STQ 

A 1 703 

LLS 

33 

ADD 

A 1 6 3 7 

STO 

A 1 7 0 A 

SUB 

A 1 622 

TMI 

A 7 1 

CLA 

A 1 607 

STO 

A 1 72 3 

AXT 

-*-L*A 

TRA 

A223 

PZE 

A 1 600 t ♦ 1 

MTH 

A A 1 3 

CLA 

A 1 70 A 


A 7 0 
A 7 1 



A1 16 
A 1 1 7 

A 1 2 2 
A 1 2 3 


A 1 A 1 
A1A4 

A 1 3 0 


Reference No 

Issue Date 

Supersedes 


71. 6 
23 Dec 1965 
New 


TSX 

A 1 067 * 2 

FDP 

A 1 673 

STQ 

A 1 70 1 

cla 

A 1 70 1 

FAD 

A1647 

TSX 

A 1 1 02 » 2 

STO 

A 1 7 16 

LDQ 

A 1 7 16 

MPY 

A 1 672 

STQ 

A 1 705 

LX A 

A 1 7 16 * 2 

CLA 

A1705 

SUB 

A1704 

PAX 

.1 

CLA 

A 1 5 76 » 1 

STO 

A 1 667 * 2 

LDQ 

A 1 5 13 

STQ 

A 1 6 13 * 2 

T I X 

A116.2.1 

MTH 

A 1 2 2 

CLA 

A 1 6 76 

STO 

A 1 567 » 2 

STQ 

A 1 5 1 3 * 2 

T I X 

A117.2.1 

STZ 

A 1623 

TSX 

A 1 1 2 3 » 4 

PTH 

A 1 624 

PTH 

A 1623 

PTH 

A 1 5 1 2 

TSX 

A1 123.4 

PTH 

A 1625 

PTH 

A 1 62 3 

PTH 

A 1 566 

CLA 

A 1 62 3 

ADD 

A 1 667 

STO 

A 1 62 3 

SUb 

A 1 704 

TZF 

A 1 2 3 

TM I 

A 1 2 3 

CLA 

»* 

TZE 

A1 50 

AXT 

-1 ,4 

CLA 

.4 

TSX 

A 1 073 » 2 

SXA 

XY .4 

LAC 

XY .2 

STO 

A 1 620 * 2 

T X I 

*+l >4*- 

TXH 

A 1 44 . 4 ♦ 

CLA 

A 1616 

TZL 

A 1 55 

T PL 

A 1 55 



4154 

4155 


A 1 60 
A 1 6 1 


A 1 7 0 


A 2 0 0 


A 2 1 1 

A2 16 
A 2 2 3 

L0AD4 

PLCT2 


Reference No. 71. 7 

Issue Date 23 Dec 1965 

Supersedes New 


CLS 

A 1 6 57 

T XL 

A160, ,20 

5T0 

XZ 

CLA 

A 1 5 77 

CAS 

XZ 

TRA 

A 1 6 1 

TRA 

*+l 

STO 

A 1 6 16 

CLA 

A 1 6 14 

SUb 

A 1 702 

T PL 

*-l 

ADD 

A 1 702 

TZE 

A 1 7 0 

T PL 

A 1 70 

CLS 

A 1 6 5 7 

STO 

A 1 6 1 4 

CLA 

A 1 667 

SUd 

A 1 6 5 7 

STO 

A 1 62 1 

CAS 

A 1 6 14 

TRA 

A 2 00 

TRA 

*+l 

SUb 

A 1 6 5 7 

STO 

A 1 6 14 

CLA 

A 1 7 1 1 

ADD 

A 1 6 14 

STO 

A 1 6 20 

CLA 

A 1665 

SUb 

A 1 7 04 

SUb 

A 1620 

T PL 

A 2 1 1 

ADD 

A 1 62 0 

STO 

A 1 6 20 

CLA 

A 1 6 2 0 

CAS 

A 1 6 14 

TRA 

A2 16 

TRA 

* + l 

SUb 

A 1 6 5 7 

STO 

A 1 614 

ZAC 


RETURN 

PLCTl 

S X A 

L0AD4 * 4 

STO 

=H5 AVEAC 

CLA 

1 » 4 

ORA 

= 030000000 )000 

STO 

VI 

CALL 

JOBOU { Y 1 - 1 ) 

AXT 

** >4 

CLA 

=H6 AVEAC 

TRA 

2*4 

SAVE 

1*2*4 

CLA 

A 5 0 7 



A243 


Reference No. 71- 8 

Issue Date 23 Dec 1965 

Supersedes frtew 


COM 


STD 

A1065 

STZ 

A 1 7 2 5 

CLA 

A 1 7 2 3 

TZE 

A 2 A 3 

cla 

A 1 6 1 0 

RE TORN 

PLOT 2 

LDQ 

A 1 6 3 3 

MPY 

A 1 7 1 6 

STQ 

SI 

CLA 

A 1 7 1 6 

SSP 


ADD 

SI 

SUB 

A 1 6 3 A 

STO 

S3 

CLA 

3 i A 

SSP 


ADD 

S3 

STA 

A 3 A 1 

STA 

A 3 6 7 

STA 

A 5 3 0 

STA 

A 7 A A 

STZ 

A 1 7 2 A 

CLA* 

A» A 

TSX 

A 1 0 36 

STO 

A 1 7 2 7 

CLA* 

5 » A 

TSX 

A 1 0 36 

STC 

A 1 7 3 0 

CLA* 

6 * A 

TSX 

A 1 0 3 6 

STO 

A 1 7 3 1 

CLA* 

7, A 

TSX 

A 1036 

STO 

A 1 7 32 

CLS 

A 1 7 3 0 

FAD 

A 1 7 2 7 

TMJ 

A41 1 

STO 

A 1 6 7 A 

CLS 

A] 732 

FAD 

A 1 7 3 1 

TM I 

A 4 1 1 

STO 

A 1 6 7 3 

CLA 

A 1 6 3 3 

TSX 

A1C67 

FDP 

A 1 6 73 

STO 

A. 714 

CLA 

A 1 7 0 3 

TSX 

A 1 067 

FDP 

A 1674 

STQ 

A 1 7 1 3 

CLA 

A 1636 



A 3 3 3 
A 3 3 A 


A 3 A 1 


' A 3 6 1 
A3 12 


A 3 6 7 


Reference No. 71. 9 

Issue Date 23 Dec 1965 

Supersedes New 


TSX 

A 1 067 » 2 

STO 

A 1 7 0 1 

CLA 

A167A 

FDP 

A 1 7 0 1 

STQ 

A 1 667 

CLA 

A 1 6 6 6 

TSX 

A 1 067 9 2 

STO 

A 1 7 0 1 ‘ 

CLA 

A 1 6 75 

FDP 

A1701 

STQ 

A 1 5 70 

STZ 

A 1 623 

ST Z 

A 1 5 A 5 

STZ 

A 1 6 30 

CLm 

A 1 6 3 0 

PAX 

• 2 

ADD 

A 1 62 3 

PAX 

% A 

CLA 

A 1 566 » 2 

STO 


CLA 

A 1 6 30 

ADD 

A 1 6 57 

STO 

A 1 6 30 

SUb 

A 1 7 16 

TNZ 

A 3 3 A 

CLA 

A 1 6 2 3 

ADD 

A 1 7 16 

STO 

A 1623 

CLA 

A 1 6 5 5 

sub 

A 1 5 A5 

TZE 

A A 1 6 1 

CLA 

A 1 6 5 7 

STO 

A 1 7 0 1 

SUb 

A 1 6 66 

TZt 

A A 05 

STZ 

A 1630 

CLA 

A 1 6 30 

PAX 

*2 

ADD 

A 1 6 2 3 

PAX 

% A 

CLA 

A 1 5 1 2 ♦ 2 

STO 

♦ A 

CLA 

A 1 6 30 

ADD 

A 16 3 7 

STO 

A 1 6 3 0 

SUb 

A 1 / 1 6 

TNZ 

A 36 2 

CLA 

A 1 623 

ADD 

A'17 16 

STO 

A 1 6 2 3 

CLA 

A 1 7 0 1 

ADD 

A 1 6 5 7 



A405 

A A 1 1 
A A i 3 

A 4 1 6 
A4161 
A A 1 7 

PL0T3 


A A A2 
A A A6 

A A 5 5 

A4L 7 
A A 6 0 


Reference No. ZliJjj 

Issue Date 23 Dec 1965 

Supersedes _ New 


STO 

A 1 7 0 1 

SUB 

A 1 6 66 

TNZ 

A 3 6 1 

CLA 

A 1 343 

ADD 

A 1 6 37 

STO 

A 1 3 A3 

T XL 

A 3 33 * * 1 9 

CLA 

A 1 6 10 

STO 

A 1 7 2 A 

AXT 

-*-l»4 

TRA 

A 2 2 3 

PZE 

A1717* *4 

T XL 

*+l » 0 » ** 

RETURN 

PLOT 2 

ZAC 


RETURN 

PLOT 2 

AXT 

-*-1*4 

TRA 

A 2 2 3 

PZE 

A 1 602 * » 3 

T XL 

A A 1 6 * 0 * 

SAVE 

1 *2*4 

STZ 

A 1 606 

CLA 

3*4 

STA 

A 32 6 

CLA 

A * A 

ADD* 

6*4 

SUB 

A 1 63 A 

STA 

A 3 00 

CLA 

5*4 

ADD* 

6*4 

SUB 

A 1 63 A 

STA 

A A 60 

CLA 

A 1 72 3 

ORA 

A 1 7 2 A 

TZE 

A A 42 

CLA 

A 1 6 1 1 

RETURN 

PLOT 3 

ORA 

A 1 7 2 3 

TZE 

A A 46 

CLA 

A 1 6 1 1 

T X I 

A A 1 7 * A * 1 

CLA* 

6*4 

TSX 

A 1 0 72 » 2 

TNZ 

A A3 3 

CLS 

A 1 6 1 1 

RETURN 

PLOT 3 

STO 

A 1 6 3 A 

STZ 

A 1 6 3 0 

LX A 

A 1 fa 30 * 1 

CLS 

*1 

TSX 

A 1 0 36 » 2 

FAD 

A 1 7 3 1 


A470 
A 47 1 


A 5 00 


A507 

A510 

A511 


A 52 0 


A 52 6 

A 5 30 
A 5 3 1 
A 5 3 2 

A 5 34 


r PLO T 4 


PL0T4 


Reference No. 71. 11 

Issue Date 23 Den 1965 

Supersedes New 


LRS 

35 

FMP 

A 1 7 1 4 

T PL 

A470 

FSB 

A 1 645 

MTH 

A 4 7 1 

FAD 

A 1 645 

TSX 

A 1 1 02 * 2 

STO 

A 1 623 

TZE 

A 5 00 

TMI 

A 5 32 

SUB 

A 1 633 

TZE 

A 5 00 

T PL 

A 5 3 2 

cla 

.1 

TSX 

A1056. 2 

FSB 

A 1 7 30 

LRS 

35 

FMP 

A 1 7 1 5 

TPL 

A 5 1 0 

FSB 

A 1 645 

T XL 

A5 1 1 • t PLOT 3 

FAD 

A 1 645 

TSX 

A 1 1 02 * 2 

STO 

A 1 545 

TZE 

A 52 0 

TMI 

A 5 3 2 

SUB 

A 1 7 03 

TZE 

A520 

TPL 

A 5 32 

LDQ 

A 1 705 

MPY 

A 1 62 3 

LLS 

35 

ADD 

A 1 d45 

STO 

A 1 63 1 

TSX 

A 1 1 2 3 * 4 

PTH 

0 

PTH 

A 1 6 3 1 

OCT 

377777000000 

T XL 

A 5 34 * ,4 

CLS 

A 1 6 1 1 

STO 

A 1 606 

cla 

A 1 6 30 

a n \j 

A 1 6 5 7 

STO 

A 1 6 3 0 

SUb 

A 1 6 54 

TNZ 

A 4 5 7 

CLA 

A 1 606 

RETURN 

PLOT 3 

SAVE 

1*2*4 

CLA 

A 5 3 0 

TXL 

A 5 4 7 * 0 » 

CLA 

A 1 660 



A347 

A 5 60 
A 364 


A601 


A 6 1 7 
A621 


A 6 3 2 
A634 


Reference No. 71 * 

Issue Date 23 Dec 1965 

Supersedes New 


STD 

A 7 1 3 

CLA 

A 1 7 2 3 

ORA 

A 1 7 24 

TZt 

A 360 

CLA 

A 1 6 1 2 

RETURN 

FPL0T4 

ORA 

A 1723 

TZE 

A 564 

CLA 

A 1 6 12 

T X I 

A417,4,3 

CLA 

4,4 

STA 

A 6 0 1 

STA 

A 7 1 4 

CLA* 

3,4 

TSX 

A 1 0 72 , 2 

ADD 

A 1 6 37 

PAX 

,4 

SXD 

A 1 2 1 2 , 4 

STD 

A 1 440 

LXA 

A 1 6 72 , 1 

SXD 

A 4 1 6 , 1 

LDQ 

** 

STQ 

A 1 6 3 2 

CLA 

A 1 6 1 7 

STO 

A 1 63 3 

CLA 

A 1 6 1 6 

STO 

A 1 6 3 1 

CLA 

A 1 6 3 3 

STO 

A 1 6 0 5 

CAL 

A 1 6 26 

ANA 

A 1 6 2 7 

TZE 

A 6 1 7 

CLA 

A 1 6 3 3 

SUB 

A 1 637 

STO 

A 1 60 5 

STZ 

A 1 6 2 3 

LXA 

A 1 62 3 , 2 

CLA 

A 1 60 3 

SUB 

A 1 62 3 

TMI 

A 7 6 3 

SUB 

A 1 6 34 

LXA 

A 1 6 34 , 4 

TPL 

A 6 3 2 

ADD 

A 1 6 3 4 

ADD 

A 1 6 37 

PAX 

, 4 

SXD 

A 1 066 * 4 

SXD 

A 7 0 , 2 

CLA 

A 1 3 14 

STO 

A 1 3 42 

CLA 

A 1 3 1 3 

STO 

A 1 34 1 



Reference No 

Issue Date 

Supersedes 


71. 13 
23 Dec 1965 
New 



PXD 

12 8*0 


LDQ 

A 1 62 3 


DVP 

A 1 666 


STQ 

A 1 6 3 1 


TNZ 

A 66 7 


CAL 

A 1 626 


ANA 

A 1 7 1 3 


TNZ 

A667 


CLA 

A 1 6 3 1 


TSX 

A 1 067 * 2 


LRS 

35 


FMP 

A 1 570 


STO 

A 1 7 0 1 


CLA 

A 1 7 3 1 


F$tf 

A 1 70 1 


STO 

A 1 47 1 


CLA 

A 1 7 1 3 


STO 

A 1 545 


CLA 

A1650 


STO 

A 1 6 52 


SXD 

A 762 *4 


TSX 

A 1 1 56 » 4 


LXD 

A 762 * 4 

A66 7 

CLA 

A1 542 


STO 

A 1 541 * 4 


CLA 

A1 541 


STO 

A 1 540 * 4 


CLA 

A 1 62 3 


ADD 

A 1 6 5 7 


STO 

A 1 62 3 


T I X 

A634*4* 1 


LXD 

A 1 066 * 4 

A 7 00 

SXD 

A 7 62 * 4 


LXD 

A 1 2 1 2 1 4 


CAL 

A 1 6 76 


TNX 

A717,4» 1 


LXD 

A 1 440 * 2 


LXD 

A 4 1 6 , 1 


LDQ 

A 1 6 32 


LGL 

6 


ALS 

24 


T I X 

A715*l#l 


LXA 

A 1 672 # 1 

A713 

T X I 

*+1*2*** 

1 



A 1 A 4 1 

LXD 

A 1 3 1 6 » 4 


TRA 

1 *4 

A 1 44 3 

LDQ 

A 1 607 


STQ 

A 1 662 


PAX 

» 4 


TXH 

A1451,4, 


CLA 

A 1 607 



Reference No. 71. 14 

Issue Dat e 23 Dec 1965 

Supersedes New 



TRA 

1 ,2 

A1451 

TMI 

A 1 4-57 

A 1 45 2 

LDQ 

A 1 6 6 2 


FMP 

A 1 6 1 3 


STO 

A 1 662 


T I X 

A1 462, A , 1 


TRA 

1 *2 

A 1 4 5 7 

CLA 

A 1 662 


FDP 

A 1 6 1 3 


STQ 

A 1662 


T I X 

A1457,4, 1 


cla 

A 1 662 


TRA 

1*2 


OCT 

77777 

TEMP 

PZE 

0 


PZE 

1 

Y 1 

BSS 

1 

S7 

PZE 


36 

PZE 


S 5 

PZE 


S 4 

PZE 


3 3 

PZE 


SI 

PZE 


XZ 

PZE 


X> 

PZE 


A 1 4 7 1 

PZE 

0 


BC I 

1 . I 


BCI 

1 1 1 


BCI 

1 * 


BCI 

1 f I 


BCI 

1 * 


BCI 

1 . I 


BCI 

1 * I 


BCI 

1 1 


BCI 

1 * I 


BCI 

1 * 


BCI 

1 . I 


BCI 

1 . 1 


BCI 

1 » 


BCI 

1 * I 


BCI 

1 * 


BCI 

1 » I 

Ubl 2 

BCI 

1 f I 

A 1 5 1 3 

BCI 

1 » 

A 1 5 1 4 

BCI 

1 * 0 

U 515 

PZE 

0 


BSS 

18 

A 1 5 4 0 

BSS 

1 

A 1 5 4 1 

BSS 

1 

A1 542 

PZE 

0 

A 1 3 4 3 

PZE 

0 

M 544 

be i 

1 *CnoOOO 


Reference No. 71. 15 

&r£d?l 8 3 

oUpcrBcUca Jsj 0^ 


A1545 

P2E 

0 


BCI 

1, + 


BCI 

1 »+ 


BCI 

I » 


BCI 

1 •"+ 


BCI 

1 » 


BCI 

X, + - 


BCI 

1 , + — 


BCI 

1 , 


BCI 

x + 


BCI 

1 , 


BCI 

1 t — - — +- 


BCI 

1 •+ 


BCI 

1 » 


BCI 

X f — + 


BCI 

X* 


BCI 

X * + - 

A1 566 

BCI 

X # + 

A1567 

PZE 

0 

A1570 

PZE 

0 

A 1 5 7 1 

BCI 

1 1- 


BCI 

1 1 — 


BCI 

1 1 


BCI 

1 » 


BCI 

X f 

A1 576 

BCI 

1 • 

A1 577 

OCT 

10 

A1600 

BCI 

1 »OPLOT1 


BCI 

1 tOPLOT2 

A 1 602 

BCI 

ItONO PR 


BCI 

1 f EVIOUS 


BCI 

1# PLOT 2 

A 1 60 5 

PZE 

0 

U606 

PZE 

0 

A 1 607 

OCT 

201400000000 

A 1 6 1 0 

BCI 

1 ,+DOOOO 

Ai 6U 

BCI 

It+FOOOO 

A 1 6 1 2 

BCI 

1 *+)0000 

A 1 6 1 3 

BCI 

1 #+N0000 

A 1 6 1 A 

OCT 

3 

A1615 

PZE 

0 

A1616 

OCT 

3 

A 1 6 1 7 

PZE 

0 

A 1 620 

OCT 

16 

A 1 62 1 

OCT 

11 

A1622 

BCI 

1 *00001P 

A1623 

PZE 

0 

A162A 

BCI 

1 1 1 

A 1 62 5 

BCI 

1 # + 

A1 626 

PZE 

0 

A 1 627 

OCT 

4 

A 1 6 3 0 

PZE 

0 



71. 16 


Reference No. _ 

Issue Date 23 Dec 1965 

Supersedes New 


A 1 6 3 1 

PZE 

0 

A 1 6 3 2 

PZE 

0 

A 1 6 3 3 

BC I 

1 f 000005 

A 1 6 3 4 

OCT 

1 

A 1 6 3 5 

OCT 

777777777 


OCT 

777777777700 


OCT 

777777770077 


OCT 

777777007777 


OCT 

777700777777 


OCT 

770077777777 

A 1 64 3 

OCT 

7777777777 

A 1 644 

OCT 

770000000000 

A 1 6 4 5 

BC I 

1 ,+40000 

A 1 646 

BC I 

1 , OOOOON 

A 1 64 7 

OCT 

200772702436 

A 1 6 5 0 

OCT 

1 1 

A 1 6 3 1 

PZE 

0 

A 1 6 3 2 

PZE 

0 

A 1 6 5 3 

PZE 

0 

A 1 6 3 4 

PZE 

0 

A 1 6 5 5 

OCT 

5 

A 1 6 56 

OCT 

12 

A 1 657 

OCT 

1 

A 1 66 0 

OCT 

1000000 

A 1 66 1 

PZE 

0 

A 1 66 2 

PZE 

0 

A 1 66 3 

BC I 

1 . 


OCT 

606060606072 

A 1 6 6 5 

BC I 

1 , 00001 Y 

A 1 666 

OCT 

12 

A 1 66 7 

OCT 

12 

A 1 6 70 

PZE 

0 

A 1 6 7 1 

PZE 

0 

A 1 6 7 2 

OCT 

6 

A 1 6 7 3 

OCT 

203600000000 

A 1 6 74 

PZE 

0 

A 1 675 

PZE 

0 

A 1 6 76 

T CO A 

** 

A 1 6 77 

PZE 

0 

A 1 7 00 

PZE 

0 

A 1 70 1 

PZE 

0 

A 1702 

OCT 

12 

X 1 7 0 3 

BC I 

1 ,00001M 

A 1 70 4 

BC I 

1 , 00001 N 

A 1 70 5 

BC I 

1,000010 

XI 706 

OCT 

3 

A 1 70 7 

OCT 

134337657770 

A 1 7 1 0 

OCT 

233375360400 

A i 7 1 1 

OCT 

14 

A 1 7 1 2 

BC I 

1 ,000000 

A 1 7 1 3 

OCT 

2 

X 1 7 1 4 

PZE 

0 



71 . 17 
23 Dec 1965 
New 


Reference No. 

Issue Date 

Supersedes 


A 1 7 1 5 

PZE 

0 

A 1 7 1 6 

BCI 

1 , 00000 A 

A 1 7 1 7 

BCI 

1 .0PLQT2 


BCI 

It IMPRO 


BCI 

1 .PER AR 


BCI 

1 .GUMENT 

A 1 7 2 3 

PZE 

0 

A 1 7 2 A 

PZE 

0 

A 1 7 2 5 

OCT 

1 


PZE 

0 

A1 727 

PZE 

0 

A 1 7 3 0 

PZE 

0 

A 1 7 3 1 

PZE 

0 

A 1 7 32 

PZE 

0 

A 1 7 3 3 

PZE 

0 

A 1 7 3 4 

PZE 

0 

A 1 7 3 5 

BSS 

1 


BSS 

29 

A 1 7 7 3 

PZE 

0 

A 1 7 74 

PZE 

0 


EXTERN 

END 

JOBOU 

A 7 1 4 

LDQ 

.2 

A715 

5XD 

A1440.2 


SXD 

A 4 1 6 . 1 

A 7 1 7 

SXD 

A1212.4 


LXD 

A 7 62 .4 


SLW 

S4 


ORA 

A 1 54 1 . 4 


SLW 

A 1 54 1 . 4 


CAL 

S 4 


STQ 

A 1 63 2 


T I X 

A 7 00 .4 * 1 


SXA 

A 1 7 73 . 0 


LXD 

A 1 066 . 4 


LXD 

A 7 0 . 2 

A727 

CLA 

A 1 54 1 * 4 


SXA 

A 1 7 74 » 4 


LXA 

A 1 7 73 . 4 


STO 

A 1 73 5 . 4 


T X I 

*+l .4,-1 


SXA 

A 1 7 73 » 4 


LXA 

A 1 774, 4 


CLA 

A 1 540 » 4 


SXA 

A 1 7 74 , 4 


LXA 

A 1 7 7 3 * 4 


STO 

A 1 7 3 5 » 4 


T X I 

*+l ,4,-1 


LXA 

A 1 7 1 6 , 1 

A744 

CLA 

,2 


STO 

A 1 7 3 5 , 4 


T X I 

* + l ,4,-1 


A756 


A762 
A7 6 3 


A1001 


A 1 0 14 


Reference No. 

Issue Date 

Supersedes 


71. 18 
23 Dec 1965 
" New 


TXI 

*+1,2,1 

T I X 

A 7 44 , 1 , 1 

PXA 

,4 

PAC 

,4 

SXD 

A7 56 , 4 

AXT 

-*-1,4 

TRA 

A223 

Pit 

A 1 7 35 

SXA 

A 1 7 73 , 0 

LXA 

A 1 7 7 4 » 4 

T I X 

A727 ,4 , 1 

MTH 

A 62 1 

CAL 

A 1 626 

ANA 

A 1 657 

TNZ 

A 1 054 

LXD 

A 1 54 , 4 

cla 

A 1 5 1 3 

STO 

A 1 543 , 4 

T I X 

*-1,4,1 

CLA 

A 1 657 

STO 

A 1 545 

LDQ 

A 1 7 1 3 

CLA 

A 1 6 14 

TZE 

A1001 

T PL 

A1001 

ST Q 

A 1 545 

CLA 

A 1 7 30 

STO 

A 1 47 1 

CLA 

A 1 6 1 5 

STO 

A 1 653 

CLA 

A 1 620 

STO 

A 1652 

CLA 

A 1 6 14 

STO 

A 1 6 5 1 

TSX 

A 1 1 56 , 4 

CLA 

A 1 6 5 7 

STO 

A 1 623 

CLA 

A 1 623 

TSX 

A 1 067 , 2 

LRS 

35 

FMP 

A 1 567 

FAD 

A 1 7 30 

STO 

A 1 47 1 

CLA 

A 1 543 

ADD 

A 1 6 57 

STO 

A 1 545 

CLA 

A 1 62 1 

STO 

A 1 652 

TSX 

A 1 1 56 , 4 

cla 

A 1 62 3 

ADD 

A 1 657 

STO 

A 1 62 3 


Reference No. 71. 19 

Issue Dat e 23 Dec 

Supersedes 



SUB 

A 1 656 


TZE 

A 1 0 14 


TMI 

A 1 0 14 


AXT 

-*-1,4 


TRA 

A22 3 


PZE 

A 1 5 1 3 » , 1 


AXT 

2 0,2 


LXD 

A 1 7 34 # 1 


AXT 

,4 

A 1 044 

CLA 

A 1 542 • 1 


STO 

A 1 73 5 » 4 


TXI 

*■+1 ,4,-1 


TXI 

*+1,1,1 


T I X 

A 1 044 , 2 , 1 


AXT 

-*-1,4 


TRA 

A 2 2 3 


PZE 

A1735, ,20 

A 1 0 54 

RETURN 

FPL0T4 

A 1 0 5 6 

TZE 

1,2 


STO 

A 1 70 1 


SSP 



SUB 

A 1 63 5 


TMI 

A 1065 


CLA 

A 1 70 1 


TRA 

1,2 

A 1 06 5 

TXL 

A 5 32 , 2 , ** 

A 1 066 

MTH 

A411 

A 1 067 

ORA 

A 1 544 


FAD 

A 1 544 


TRA 

1 ,2 

A 1 072 

SSP 


A 1 073 

LRS 

33 


'i NZ 

A 1 1 0 1 


LLS 

15 


TNZ 

1,2 


LLS 

18 


TRA 

1,2 

A 1 101 

LLS 

33 

A 1 1 0 2 

UFA 

A1 544 


LRS 

27 


ZAC 



LLS 

27 


TRA 

1,2 

OMIT 

SAVE 

1,2,4 


CLA* 

3,4 


SXA 

A 1 1 1 4 , 2 


TSX 

A 1 073 , 2 

A1 1 14 

AXT 

,2 


TMI 

A 1 1 20 


SLW 

S 5 


ORA 

A 1 6 2 6 


SLW 

A 1 62 6 


A 1 1 20 
A 1 1 2 3 


\i 135 


Al 146 
A1 147 

A1 154 
A 1 1 56 

A 1 1 64 
A 1 1 65 

A 1 1 67 


Reference No. 

Issue Date 

Supersedes 


71.20 

22 Dec 1965 
New 


CAL 

S 5 

RETURN 

OMIT 

COM 

SLW 

S 6 

ANA 

A 1 6 26 

SLW 

A 1 626 

CAL 

S 6 

RETURN 

OMIT 

CLA 

1 * 4 

STA 

A 1 1 47 

CLA 

2*4 

STA 

*+l 

LDQ 

** 

STQ 

A 1 677 

l AC 

DVP 

A 1 672 

STQ 

A 1 700 

LXA 

A 1 700 * 2 

MPY 

A 1 672 

STQ 

A 1 700 

CLA 

A 1.677 

SUB 

A 1 700 

PAX 

*1 

CLA 

3*4 

STA 

A 1 1 46 

STA 

A 1 1 54 

CAL 

A 1 643 » 1 

ANA 

*2 

SLW* 

*-l 

CAL 

** 

ANA 

A 1 644 

TNX 

A 1 154 » 1 * 0 

ARS 

6 

T I X 

*-1*1*1 

ORA 

• 2 

SLW* 

*-l 

TRA 

4*4 

SXD 

A 1 3 1 6 * 4 

CLA 

A 1 6 5 3 

SSP 

SUB 

A 1646 

TMI 

A 1 1 65 

CLA 

A 1 607 

TXI 

A1167, *-4096 

CLA 

A 1 6 5 3 

TSX 

A 1 443 * 2 

STO 

A 1 70 1 

TOV 

* + l 

LDQ 

A 1 7 0 1 

SUB 

A 1164 

STO 

S7 

CLA 

A 1 47 1 




S6P 

ADD 

S 7 


TOV 

A 1 1 77 


SUB 

A1X35 


TPL 

A 1 2 00 

A1177 

LDQ 

A 1607 

U200 

FMP 

A1471 


STO 

A 1 7 3 3 


SSP 

CAS 

A 1 7 07 


TRA 

A 1 2 06 


TRA 

*+l 


STZ 

A 1 73 3 

A 1 2 06 

SUB 

A 1 60 7 


TPL 

A 1 2 1 3 


cla 

A 1 6 5 1 


ADD 

A 1 706 

A1212 

MTH 

A 1 2 1 5 

>>1213 

CLA 

A1651 


ADD 

A 1 7 1 2 

A 1 2 1 5 

SUB 

A 1 6 52 


TPL 

A 1 227 


ADD 

A 1 6 5 2 


LDQ 

A 1 6 5 2 


STQ 

A 1 70 1 


STO 

A 1 6 5 2 


cla 

A 1 7 0 1 


ADD 

A15A5 


SUB 

A 1 6 52 


STO 

A 1 5 AS 

*1227 

CLA 

A 1 652 


TZE 

A1AA1 


SUB 

A 1 65 1 


SUB 

A 1 7 13 


TSX 

A 1 AA3 » 2 


STO 

A 1 66 1 


CLA 

A 1 5 1 3 


STO 

A 1 6 7 1 


cla 

A 1 7 3 3 


TPL 

A12A5 


SSP 

STO 

A 1 73 3 


cla 

A 1 5 7 1 


STO 

A 1 6 7 1 

A12A6 

LDQ 

A 1 607 


CLS 

A 1 6 5 1 


TPL 

A1252 


TSX 

A LAA3 *2 


LRS 

35 

A 1 2 5 2 

FMP 

A16A5 


FAD 

A 1 7 3 3 


STO 

A 1 7 3 3 


Reference No 

Issue Date 

Supersedes 


New 


A 1 2 61 


A 1 3 1 2 
,1313 
A 1 3 1 A 
A 1 3 1 5 
,1316 
A 1 3 1 7 


,1327 


Reference No 

Issue Date 

Supersedes 


71.22 
23 Dec 1965 
New 


CLA 

A 1657 

STO 

A 1 5 1 5 

CLA 

A 1 6 52 

STO 

A 1 670 

SUB 

A 1 65 1 

SUB 

A 1 657 

TNZ 

A 1 3 1 7 

CLA 

A 1 663 

STO 

A 1 5 A3 

CLA 

A 1 5 1 5 

TZE 

A 1 3 1 5 

CLA 

A 1 670 

SUB 

A 1 6 5 2 

TPL 

A 1 3 1 5 

CLA 

A 1 5A5 

SUB 

A 1 657 

STO 

A 1 70 1 

TSX 

A 1 1 2 3 » A 

PTH 

A 1 672 

PTH 

A 1 70 1 

PTH 

A 1 5 A2 

CLA 

A 1 670 

ADD 

A 1 6 57 

SUB 

A 1 6 52 

TPL 

A 1 3 1 5 

CLA 

A 1 5A5 

SUB 

A 1 7 1 3 

STO 

A 1 70 1 

TSX 

A 1 1 23 » A 

PTH 

A 1 67 1 

PTH 

A 1 70 1 

PTH 

A15A2 

ST Z 

A 1 5 1 5 

MTH 

A 1 A 13 

CLA 

A 1 66 1 

STO 

A 1 662 

CLA 

A 1 7 3 3 

FDP 

A 1 66 1 

STO 

A 1 7 0 1 

CLA 

A 1 70 1 

SUB 

A 1 7 10 

TMI 

A 1 3 50 

LDQ 

A 1 662 

FMP 

A 1 7 10 

STO 

A 1 662 

CLA 

A 1 70 1 

FDP 

A 1 7 10 

STQ 

A 1 7 0 1 

CLA 

A 1 7 10 

CAS 

A 1 70 1 

TRA 

A 1 3 AO 

TRA 

*+l 


MTH 

A 1 340 CLS 
TSX 
TSX 
LRS 
FMP 
FAD 
STO 
MTH 

US50 CLA 
TSX 
STO 
TSX 
LRS 
FMP 
CHS 
FAD 
STO 
CLA 
FDP 
STQ 
CLA 
SUB 
TPL 
STZ 
ZAC 
LDQ 
DVP 
STO 

A 1 374 CLA 
TZE 
CLA 
TZE 
CLA 
SUB 
TPL 
CLA 
SUB 
STO 
TSX 
PTH 
PTH 
PTH 

Al4i2 STZ 

A 1 4 1 3 LDQ 
RQL 
STQ 

A 1 ^ 1 6 TSX 
PTH 
PTH 
PTH 
CLA 


A 1 32 7 
A 1 70 1 
A 1 1 02 *2 
A 1 067 » 2 
35 

A 1662 
A 1 73 3 
A 1 733 
A 1 3 1 7 
A 1 70 1 
A1072,2 
A 1 543 
A 1 067 > 2 
35 

A 1 66 1 

Al 733 
A 1 733 
A 1 661 
A 1 6 1 3 
A 1 661 
A 1 650 
A 1 543 
A 1 374 
A 1 5 1 5 

A 1 543 
A 1 702 
A 1 543 
A 1 5 1 5 
A 1 4 1 3 
A 1 543 
A 1 4 2 2 
A 1 670 
A 1 6 52 
A 1 4 1 2 
A 1 545 
A 1 657 
A 1 70 1 
A 1 1 23 » 4 
A 1 6 7 1 
A 1 70 1 
A 1 542 
A 1 5 1 5 
A 1 543 
30 

A 1 70 1 
A 1 1 23 * 4 
A 1 70 1 
A 1 545 
A 1 542 
A 1 545 


Reference No. 71,23 

Issue Date 23 Dec lSBS 

Supersedes New 


X1422 


A1440 


A667 


A700 


Reference No. 71,24 

Issue Date 23 Dec 1965 

Supersedes New 


ADD 

A1657 

STO 

A 1 545 

CL5 

A 1 6 57 

ADD 

A 1 6 70 

STC 

A 1 670 

TPL 

A 1 26 1 

CLA 

A 1 5 1 5 

T ZE 

A1441 

CLA 

A1545 

SUB 

A 1 657 

STO 

A 1 545 

STZ 

A 1 70 1 

STZ 

A 1 5 15 

MTH 

A 1416 

PXD 

128,0 

LDQ 

A 1 623 

DVP 

A 1 6 66 

STQ 

A 1 6 3 1 

TNZ 

A 6 6 7 

CAL 

A 1 6 26 

ANA 

A 1 7 13 

TNZ 

A667 

CLA 

A 1 6 3 1 

TSX 

A 1 067 ,2 

LRS 

35 

FMP 

A 1 5 70 

STO 

A 1 70 1 

CLA 

A 1 7 3 1 

FSB 

A 1 701 

STO 

A 1 47 1 

CLA 

A 1 7 1 3 

STO 

A 1 545 

CLA 

A 1 6 50 

STO 

A 1 6 52 

SXD 

A 7 62 ,4 

TSX 

A1 156,4 

LXD 

A 7 62 , 4 

CLA 

A 1 542 

STO 

A 1 54 1 , 4 

CLA 

A 1 54 1 

STO 

A 1 540 , 4 

CLA 

A 1 62 3 

ADD 

A 1 6 57 

STC 

A 1 623 

T I X 

A6 34 ,4,1 

LXD 

A 1 066 , 4 

SXD 

A 7 62 , 4 

LXD 

A 1 2 1 2 , 4 

CAL 

A 1 676 

TNX 

A717,4,l 

LXD 

A 1 440 , 2 

LXD 

A 4 1 6 , 1 



Reference No., 
Issue Dat e 
Supersedes 


71.25 
23 Dec 1965 


New 



LDQ 

A 1 632 


LGL 

6 


ALS 

24 


T I X 

A71b # l .1 


LXA 

A 1 6 72 » 1 

A713 

T X I 


1 



A 1 44 1 

LXD 

A1 3 16*4 


TRA 

1 

A 1 44 3 

LDQ 

A 1 60 7 


STQ 

A 1 662 


PAX 

* 4 


TXH 

A1431»4*J 


CLM 

A 1 607 


TRA 

1 9 2 

A1451 

TMI 

A 1 4 3 7 

A 1 4 5 2 

LDQ 

A 1 662 


FMP 

A 1 6 1 3 


STO 

41662 


T IX 

A 1432*4* 1 


TRA 

1 *2 

A1 457 

cla 

A 1 6 6 2 


FDP 

A 1 6 1 3 


STQ 

A 1 6 6 2 


TlX 

A 1 4 5 7 * 4 , 1 


CLA 

A 1 6 6 2 


TRA 

1 *^ 


OCT 

77777 

TEMP 

PZE 

0 


PZE 

1 

Y 1 

BSS 

1 

S 7 

PZE 


S 6 

PZE 


S 5 

PZE 


S 4 

PZE 


S3 

PZE 


SI 

PZE 


XZ 

PZL 


XY 

PZE 
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SECTION 1 


GENERAL INFORMATION 

. 1 INTRODUCTION TO THE MONITOR 

SPACE is an executive, or administrative, program operating as 
a subset of the 7040/7044 IBJOB Processor Monitor (#7040-SV-8l 1 ) . 

The framework of SPACE is centered around a collection of seven 
versatile I/O subroutines. By using these subroutines, the programmer 
can disassociate himself completely from problems such as the 
'physical* aspects of retrieving or creating externally stored data, 
blocking/unblocking logical records, file positioning, synchronized 
CPU/channel overlap, and the differences in the characteristics of 
recording devices. Thus, he is permitted to concentrate on his 
primary task--the internal processing of data. 

A basic requirement of any executive monitor is to automate the 
running of a series of data-process i ng programs by calling these 
programs from a library tape as they are needed. This requirement 
necessitates the SPACE user to create his own library by employing 
the chain feature of IBLDR. The only requisite conditions imposed 
upon the link structure of this library is that SPACE be the main 
link, with the subsidiary programs acting as dependent links. One 
such dependent link is a post-execution file utility processor which 
must be included in the 1 ibrary. It may, for all purposes, be 
considered as a part of the monitor, only in core when needed. 

Enhanced by these facilities, the objectives of the monitor may 
be outlined, as follows: 

a. To maintain semi -compat ib i 1 i ty with programs written 
for the now defunct DSDPS (Defense Systems Data 
Processing System). 
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b. To create, if possible, up to 999 files of data on 
a given I/O device, with the ability to randomly 
access any of these files* 

c. To enable 'data-shar i ng ' capabilities whereby files 
of output data from any program(s) can serve as input 
data to any later program(s), either within the same 
job or not. 

d. To provide a framework around which systems of data- 
processing programs can be developed. Once data is 
available in the standard SPACE file format, the 
whole range of previously written programs is avail- 
able to process it. 
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1.2 


HISTORY AND DEVELOPMENT 


The history of data processing in ASD began in July of 19^3 
with the installation of an IBM 709k. Mr. E. E. Johnson's engineer- 
ing programming group assumed the task of writing sufficient programs 
which, using the Monte Carlo simulation technique, enabled the cal- 
culation of the probability of success for various flight regimes 
of the Apollo Mission. The effort was dubbed SOAR III (Simulation 
of Apollo Reliability) and, headed by H. N. Lerman, grew into a 
complex system of approximately thirty functionally dependent pro- 
grams. The apparent need of a monitoring system forced the use of 
DSOPS to provide a tape library of SOAR programs, and to handle 
communications between these programs. Although the operating 
philosophy of DSDPS was no less than excellent, it left much to be 
desired in other respects. The most stringent shortcomings were 
threefold — (a) programs had to be assembled in absolute mode and rely 
upon fixed absolute locations, thus virtually inhibiting interface 
capabilities with relocatable subroutine libraries, assembl e-and-go 
facilities, compiler languages*, etc., (b) the monitor itself had 
to be adopted to IBSYS and maintained by the installation, thus 
causing the implementation of new version software releases to be 
indeed ‘painful 1 , and (c) DSOPS was not suitably designed for reli- 
ability data-process i ng applications. 

This led to the advent of SPACE, written by R. G. Hansen in the 
early fall of 1964, operating as a subset of 7090/7094 I B JO B under 
IBSYS. The new monitor was accepted with enthusiasm by most ASD 
programming personnel and immediate action was taken to begin convert- 
ing all active DSDPS programs in the SOAR series. 

Soon after the completion of 7090/7094 SPACE, a decision was 
made to replace the 7094 with a 7044. The structural differences 
in software design of the two computers necessitated a complete 
rewrite of the monitor. The 7040/7044 version of SPACE is a highly 
flexible system and features increased capabilities over the 7090/7094 
version, at a reduction of core storage requirements. 

^A means was found by which DSDPS could utilize the FORTRAN II language; 
however, the resultant programs ran quite inefficiently. 
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SECTION 2 


PROGRAMMER'S MANUAL 


2. 1 WRITING A PROGRAM 

The following paragraphs describe the organization and operating 
philosophy of the monitor. Although some of the material presented 
here is user oriented, it is included to provide a clear understanding 
of SPACE programming procedures. 


2.1.1 THE SPACE COMMUNICATION NUCLEUS 

Two individual named common blocks contained within SPACE provide 
all necessary communications between the monitor and the executing 
programs. The control section names of these blocks are 'ACCESS' and 
'SYSTEM'. Individual FORTRAN coded programs must contain either, or 
both, of the following COMMON statements in order to reference these 
areas : 

COMMON/ACCESS/HC(lOO),WDCT, 10(12), PROG 

C0MM0N/SYSTEM/NTAPES,REELS(15),CNTRLS(15),FILES(15),LRS(15), 

POS ( 1 5 ) ,TRLP0S( 1 5 ) ,RWCNT( 1 5) ,UN ITS( 1 5 ) 


Individual MAP coded programs must contain either, or both, of the 
following code sequences: 


Sequence 1 : 


HC 

BSS 

100 

WDCT 

BSS 

1 

ID 

BSS 

12 

PROG 

BSS 

1 

ACCESS 

CONTRL 

HC,* 
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Sequence 2 : 


NTAPES 

BSS 

1 

REELS 

BSS 

15 

CNTRLS 

BSS 

15 

FILES 

BSS 

15 

LRS 

BSS 

15 

POS 

BSS 

15 

TRLPOS 

BSS 

15 

RWCNT 

BSS 

15 

UNITS 

BSS 

15 

SYSTEM 

CONTRL 

NTAPES,* 


These blocks are maintained by the monitor and reflect information 
related to the current program in execution, and also an up-to-date 
history of status information pertaining to I/O file activity within 
the ent i re job. 


2.1.2 JOB DECK ORGANIZATION 

The job deck for a SPACE application consists of all data cards 
up to, but not including, the $IBSYS card. Consider a data card 
series as a group of one or more cards, the last of which contains 
an asterisk (*) in columns 7“72, inclusive. Individual cards compris 
ing the series, including the terminal (*) card, may contain data 
items (subsequently referred to as ’words') punched in these columns 
in accordance with the following rules: 

a. A given word wil.l be classified as and converted to a 
BCD, integer, or floating point quantity, as characterized 
by the appearance of a letter, the absence of a decimal 
point, and the appearance of a decimal point, respectively. 

b. Words are separated from one another by one or more 
intervening blank card columns. 

c. A word cannot be continued from one card to the next. 

The job deck must always begin with a card series describing informa- 
tion such as each reel of magnetic tape which will be needed for the 
job, the device to which the reel should be assigned, and, among 
other things, the file numbers of certain files which are to be 
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processed by the pos t-execu t ion file utility program. This special 
program, in addition to performing all housekeeping functions at the 
end of the job, can dump selected records from generated files in 
a variety of formats, and can also copy a given file from one device 
to another. Card columns 1-5 of the first card in this series must 
contain the identification word ‘REELS'. 

The remainder of the job deck consists of program control cards 
interspersed with data cards. The program control cards comprise a 
series and are read by the monitor. Columns 1-6 of the first card 
in such a series must contain the name of the next program which is 
to be loaded and executed. The name must be left-adjusted and must 
be identical to the name given the dependent link to which the program 
belongs; i.e., the name appearing in columns 8-13 of the $L INK card. 
When the program control card series is read by the monitor, the 
following actions are taken: 

a. The program (link) is located in the 1 ibrary and loaded 
into core storage. 

b. The name of the program is placed in location PROG . 

c. Program control parameters which were read from the 
series are placed into the H£ block, and the number 
of such parameters read is placed in the address 
portion of location WDCT . 

d. Control is given to the program via a TRA instruction. 

Data cards to be read by the program may follow the control card 
series; however, caution must be exercised to avoid accidental reading 
of the next program's control cards in the job deck. This implies 
that the program must have a means of recognizing the end of its 
associated data. If, for some reason, a program fails to read all 
of its data before returning to the monitor, the job deck will be 
searched until the next control card series is found, or a card with 
a dollar sign ($) in column one is encountered, which automatically 
terminates the job. 

Thus, any of the programs in the SPACE library may be run in any 
order, as many times as desired. 
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2 . 1.3 INTER -PROGRAM COMMUNICATION BY DATA FILES 


Central to the design of SPACE is a collection of seven versatile 
binary I/O subroutines. These subroutines enable programs to read or 
write up to fifteen files of data, simultaneously. The basic unit of 
information within such a file is termed a logical record. Several 
logical records grouped together constitute a block, or physical 
record on the recording medium, and all such blocks grouped together 
constitute the data file itself. Every data file has a unique number 
associated with it, termed the file number, and programs communicate 
with the files by these numbers alone. The uniqueness is effected by 
specifying the reel number^ (R) upon which the file resides, together 
with the position (P) of the file relative to load point. The file 
number is then expressed as an integer of the form, 1000 R+P. For ex- 
ample, the file number 387002 reflects the second file of data contained 
on reel 387. 

The discussion so far has implied the use of tape reels which 
have been assigned to a particular individual for his exclusive use. 

The reels must, of course, be mounted at the beginning of his job 
and must be terminally removed to prevent possible destruction by 
subsequent jobs. This philosophy is an excellent one provided that 
all data files which were created in the job were of a permanent nature; 
i.e., files which would subsequently be used for input at a later date. 
Many applications, however, require the use of mediary, or scratch 
files. These files are to be used only within the job and need not 
be saved. Since only one file per reel can be in an active state at 
any one time, it follows if at some point a requirement exists to 
read or write several mediary files simultaneously, an appropriate 
number of reels would have to be mounted at the outset of the job to 
accommodate these files. This time consuming and costly procedure can 
be alleviated by specifying the reel(s) as mediary in the tape assign- 
ment card series. A mediary reel number consists of a negative integer, 
the magnitude of which is less tha-n 32,768. This number serves only 
as a reference when specifying file numbers; hence, the choice of such 

Vhe reel number is an integer code assigned to a reel when it enters 
an installation. This number appears on the outer surface of the 
reel for visual identification. 
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is left to the discretion of the user 1 . The term 'reel' takes on 
a different connotation when referring to mediary reels- In this 
case, the 'reel 1 may be sequential tracks of disk or drum storage, 
or a reel of magnetic tape- From the programmer's and user's point 
of view, however, all of the devices may be treated as magnetic 
tape- A mediary reel, then, consists of an available device upon 
which data files can be recorded and read only by the programs used 
within a given job. Unless otherwise specified, the monitor will 
attempt to assign these reels to devices which are in ready status, 
thus eliminating the need of manual intervention to mount and remove 
tapes. 

2.1.4 FORMAT OF THE STANDARD DATA FILE 

The standard SPACE data file consists of a twelve-word identifica- 
tion record followed by any number of data blocks, the last block of 
which is followed by an end of file mark. The content of the identi- 
fication record is as follows: 

Word 1 - A label identifier, consisting of the BCD word 

'FILE ID f . 

Word 2 - The file number of the file. 

Word 3 “ The date upon which the file was created, formated 
in BCD as MMDDYY. 

Word 4 - The BCD name of the program which created the file. 

Word 5 “ An integer, right adjusted, indicating the size 
of logical records within the file. 

Word 6 - The address of this word contains a count of all 
physical records constituting the previous data 
file. It is used by the I/O routines for file 
positioning purposes. 

Words 7~12 of the identification record are available for use by the 
programmer, should he elect to place additional information about the 
file into the label. The contents of these six words are never altered 
or disturbed in any way by the file processing routines, except when 
a file is opened for reading. 

^Some programs depend upon fixed mediary file numbers. The user should 
consult program descriptions to determine which mediary reel numbers, 
if any, must be supplied in the tape assignment card series for the job. 
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Physical data records, or blocks, within the file are 257 words 
in length, with the exception of the last such block, which may be 
less than 257 words. Two dummy words are provided at the beginning 
of each block to prevent it from being noise (containing less than 
three words) and, in addition, a word is appended to the end of the 
block which serves internal validity checking purposes. Before the 
block is written, its sequence number is placed in the address of this 
word. A check sum is then formed by computing a logical sum of the 
entire data in the block. The left and right halves of this sum are 
added together, and the resultant 'folded' check sum is placed in the 
left half of the word. Whenever the block is read, a folded check 
sum is computed and compared against the left half of the last word 
in the block. In addition, the current block sequence count is 
compared against the address of this word. An unequal compare, in 
either case, is considered an unrecoverable error condition. These 
words are handled internally by the processing routines only and will 
never, under any circumstances, be transmitted to the user as data. 

As mentioned earlier, the last data block in a file is followed 
by an end of file mark. An additional file mark is placed at the end 
of all usable files on the reel which serves as a trailer label for 
the reel. If the trailer label is encountered by the processing 
routines while attempting to position at a file upwards on the reel, 
and positioning requirements have not yet been satisfied at the point 
of encounterment, an unrecoverable error condition occurs and the user 
is informed of his attempt td access a nonexistent file. 

2.1.5 THE FILE-PROCESSING SUBROUTINES 

Seven subroutines enable SPACE programs to handle data files 
by file number alone. W.ith these facilities, programs can read, write, 
skip, and backspace logical records, or write an end of file mark 
simply by calling the appropriate routine. The following definitions 
apply to CALL prologue arguments which must be supplied to the various 
subroutines when they are used: 
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F = A location containing the file number of the 
file which is to be acted upon. 

LRS = A location containing the size , or lengthy of 
logical records within the file, in terms of 
words. It must be a positive, right-adjusted 
integer less than 255 * 

FWA = The first word address of the array, or block, 
into or from which logical records are to be 
transmi tted. 


NREC = A location containing the number of logical 

records which are to take part in the activity 
requested by the CALL. It must be a positive, 
r ight -adjusted integer. 

HISTRY= A location which contains a history of operation 
performed by subroutines READB2, SKIPR, and BSPR. 
Each of the routines will update this location 
before returning to the calling program. 


2. 1.5*1 SUBROUTINE READB1 

Before data can be read from a given file, the file must have 
been previously activated, or opened, by calling READB1 as follows: 

CALL READS 1(F, LRS ) 

When this call is executed, the following events take place: 

a. If any file is currently active on the reel specified 
by F, it is closed by calling ENDF. 

b. The reel is positioned to the data file specified 
by F, and the identification record of the file 
is read into locations ID through ID+11. 

c. Call arguments F and LRS are compared with C(lD+l) 
and C(lD+4), respectively, to verify positioning 
success. The label identifier contained in C ( I D ) 
is additionally verified. 

d. All housekeeping functions are performed to permit 
subsequent use of READB2 for reading the file. 

It is conceivable that the LRS specification of a given file will not 
be known when it is desired to open the file with READB1. Although 
such a situation should be avoided, the file may be opened by setting 
the C(LRS) to zero before calling READB1. At return, the C(lD+4) can 
be inspected to determine the LRS of the file. 
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2. 1-5-2 SUBROUTINE READB2 


This subroutine is used to read any number of logical records 
from a file which has previously been activated by READB1. Linkage 
to READB2 is as follows: 

CALL READB2(F, FWA, NREC, HISTRY) 

When this call is executed, REA0B2 will begin reading the next NREC 
logical records from file F, each of size LRS, into the transmission 
area specified by FWA. The first such record will be transmitted to 
locations FWA through FWA+LRS-l, the second to locations FWA+LRS through 
FWA+2*LRS-1 , etc., until NREC logical records have been transmitted, 
or the end of file is encountered, whichever occurs first. At the 
end of the operation, READB2 will place a right-adjusted integer into 
location HISTRY which reflects the total number of words transmitted 
by the request. Furthermore, if the end of file was encountered 
before NREC logical records were transmitted, the sign of location 
HISTRY will be set negative and the file will become inactive. It 
cannot be referenced again until it is opened by READB1 (or ABOUTl). 

2. 1.5-3 SUBROUTINE ABOUTl 

Before data can be written in a given file, the file must have 
been previously activated, or opened, by calling ABOUTl as follows: 

CALL ABOUTl (F,LRS) 

when this call is executed, the following events take place: 

a. If any file is currently active on the reel specified 
by F, it is closed by calling ENOF. 

b. The reel is positioned as specified by F. 

c. The first six words of the ID block are prepared 
and the identification record is written from 
locations ID through ID+11. 

d. All housekeeping functions are performed to permit 
subsequent use of AB0UT2 for writing the file- 

Note that words 7-12 of the identification record are reserved for 
use by the programmer. If he elects to use any of these words, he 
must prepare them in the ID block prior to calling ABOUTl. 
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2. 1.5-4 SUBROUTINE AB0UT2 


This subroutine is used when it is desired to write logical 
records in a file which has previously been activated by AB0UT1. 
Linkage to AB0UT2 is as follows: 

CALL AB0UT2(F,FWA,NREC) 

When this call is executed, AB0UT2 will write NREC logical records 
into file F, each of size LRS, from the transmission area specified 
by FWA. Thus, a total of NREC*LR$ contiguous words will be trans- 
mitted to the file from locations FWA through FWA+NREC*LRS-1 . 

2. 1-5-5 SUBROUTINE SKIPR 

In some applications, it may be necessary to start processing 
a file at some logical record other than the first, or perhaps only 
every n— record of the file is to be processed. In either case, 
the SKIPR routine can be employed to pass over, or ignore, the 
unwanted records. Linkage must be as follows: 

CALL SK1PR(F,NREC,HISTRY) 

The call to SKIPR causes the next NREC logical records contained 
in file F to be skipped over, unless the end of file is encountered 
before the request is satisfied. In either case, SKIPR will place 
a count of the number of words skipped into location HISTRY. Further- 
more, if the operation was ended due to encountering the end of file, 
the sign of location HISTRY will be set negative. The file will not, 
however, be made inactive. This is an important distinction between 
READB2 and SKIPR. For example, if it is desired to start processing 
at the last logical record in a file and work backwards, the following 
subroutines would be used in the prescribed order: 


READS 1 

To activate the file. 


SKIPR 

Until the end of file is 

reached . 

BSPR 

To backspace one logical 

record . 

READB2 

To obtain the last record 

- 

BSPR 

To backspace two logical 

records . 

READB2 

To obtain the next-to-last record 


etc. 
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A check must, of course, be made after each call to BSPR to determine 
if the beginning of file has been reached. 

2. 1.5*6 SUBROUTINE BSPR 

This subroutine is used to backspace over logical records in a 
file which has been previously activated by READB1 . Linkage is as 
f o 1 1 ows : 

CALL BSPR(F,NREC,HISTRY) 

This call results in backspacing over NREC logical records in file F 
which have already been processed by READB2 or SKIPR, unless the 
beginning of the file is encountered before the BSPR request is 
satisfied. In either case, the BSPR subroutine will place a count 
of the number of words backspaced into location HISTRY. If the 
operation was ended due to encountering the beginning of file, the 
sign of location HISTRY will be set negative, and a subsequent call 
to READB2 or SKIPR will begin processing with the first logical 
record of the file. 

2. 1.5. 7 SUBROUTINE ENDF 

This subroutine is used to close, or inactivate, a given file. 
Subsequent references cannot be made to the file until it is re-opened 
by READB1 or AB0UT1 . Linkage is as follows: 

CALL ENDF(F) 

If file F is being written, data in the current buffer used by the 
file is written out, and followed by a file mark. Note that this 
may result in writing a physical data record less than 257 words, 
as the buffer may only be partially filled when ENDF is called. If 
file F is being read, ENDF will cause it to become inactive. If the 
file is already inactive, the call is ignored. 

The monitor automatically calls ENDF between programs for any 
files which are active. In addition, ENDF will be called by subroutines 
READB1 and AB0UT1 if any file is currently active on the reel they are 
to use. Hence, it is frequently unnecessary for the programmer to 
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employ ENDF. Exceptional circumstances might include: 

a- The case in which there would otherwise be more files 
active than buffers to accommodate them. A file 
which is active requires the exclusive use of two buffers. 

When a file becomes inactive, its buffers are returned 
to a 'pool 1 so that they may be used by some other file. 

This pool is located near the top of core storage and 
normally contains twice as many buffers as there are 
reels for the job. If after loading a program, however, 
the monitor discovers that it extends into the pool, 
an appropriate number of buffers will be inhibited, or 
made unavailable for use by active files within that 
program. Hence, very large programs should call ENDF 
for files which remain unnecessarily active to free the 
buffers for other activity; e.g., all output files, and 
partially read input files. 

b. When the number of buffers to be assigned to the pool 

has been specified in the REELS card series, and is less 
than the standard number. 

2.1.6 PERMISSIBLE SEQUENCES OF FILE OPERATIONS 

Certain combinations of reading and writing files on a given 
reel are illegal. In the table that follows, R c implies that the 
current (or last) use of the reel was for input from file C, Rp 
implies that the next use of the reel is to be for input from ajDrevious 
file, i.e., one physically preceding file C, and R $ implies that the 
next use of the reel is to be input from a subsequent file; i.e., one 
physically following file C. Similar definitions apply to W c , Wp and 
W s for output files. 
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OPERATION 

POSSIBLE 

REMARKS 

R R 
c P 

Yes 

Always permissible. 

R R 

c s 

Yes 

Provided file S exists. 

R R . 
c c 

Yes 

Always permissible. 

R W 
c P 

Yes 

All files following P will become 
nonexistent. 

R W 

c s 

Yes 

Provided that a file immediately 
preceding file S exists. 

R W 

c c 

Yes 

Always permissible. 

W R 
c P 

Yes 

Always permissible. 

W R 

c s 

No 

When file C is written, it is 
considered as the last file currently 
contained on the reel. 

W R 

c c 

Yes 

Always permissible. 

W W 
c p 

Yes 

All files following P will become 
nonexistent. 

W Vrf 

c s 

Yes 

Only if file S immediately follows 
file C. 

W W 

c c 

Yes 

Always permissible. 


2.1.7 FILE PROCESSING ERROR DIAGNOSTICS 

When any of the file processing routines are called upon, several 
checks are made to insure that the requested operation is legal. If 
for any reason an error condition is indicated, an appropriate 
diagnostic is given, accompanied with a terminal dump of the program 
area- The diagnostic will always include the name of the subroutine 
called, the absolute octal location of the CALL, and also its internal 
formula number ( I FN ) , providing one exists. 


2 - 1-12 



The error comments, together with the conditions which cause 
the error are given below. Asterisks denote a quantity which will 
be suppl ied. 

2 . 1.7.1 CALL SPECIFIES IMPROPER NUMBER OF PARAMETERS . 

The number of parameters, or arguments, supplied to subroutines 
READB1 , READB2, AB0UT1, AB0UT2, SK1PR, BSPR and ENDF must be 2, 4, 2, 
3, 3, 3 and 1, respectively* 

2 . 1.7* 2 CALL REFERENCES INACTIVE OR NONEXISTENT FILE ****** . 

This diagnostic is given whenever (a) the reel number R, or 
the position P implied by the file number is zero, (b) R is not 
specified in the REELS card series, or (c) the file was inactive when 
a call was made to READB2, AB0UT2, SKIPR, or BSPR. 

2. 1.7- 3 FILE ****** CANNOT BE OPENED DUE TO INSUFFICIENT BUFFERS . 

Subroutine READB1 (or ABOUTl) has discovered that there are 
not two buffers available for opening the given file. 

2. 1.7- 4 CALL INDICATES LRS = *** FOR FILE ****** . 

The LRS specification given to subroutines READB1 or ABOUTl is 
greater than 254, or zero if the CALL was to ABOUTl. 

2. 1-7-5 LRS IN FILE ID = *** . 

This is appended to the above diagnostic if REA0B1 discovers 
that the LRS spec i f i ca t ion given in the call differs with the LRS 
contained in the identification record of the file. 

2. 1.7- 6 CALL REFERENCES FILE PROTECTED REEL ****** . 

The reel upon which ABOUTl is to open a file has been logically 
file protected and hence, cannot be written on. 
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2. 1.7. 7 FILE ****** IS NONEXISTENT, OR CANNOT BE ACCESSED DUE TO POSITIONING 
FAILURE. 


While positioning from one file to another, READBl and AB0UT1 
verify the identification records of all files passed over by check- 
ing the label identifier and the length of the record. Furthermore, 
READBl will verify the file number in the identification record of 
the desired file by comparing it with the file number given in the 
CALL. A discrepancy in these compares will result in the above 
diagnostic and may be due to encountering the reel trailer label while 
positioning forward, or perhaps by a program still in the debug phase 
which has accidently moved the record ing med ium. 

Before the actual positioning begins, certain criteria are 
inspected to determine the existency of the file. Existency can 
always be predetermined if (a) any file has been previously written 
on the reel within the job, or (b) the reel is mediary, or (c) the 
NOLABEL option was specified in the REELS card series for the reel. 

2. 1.7*8 CALL SPECIFIES ILLEGAL TRANSMISSION AREA . 

Whenever a call is made to READB2 or AB0UT2, the transmission 
area into which data is to be read or from which data is to be written 
is checked. The first word address (FWA) of this area must not be 
less than the origin of the first dependent link within the job, and 
FWA+NREC*LRS must not be greater than S.SEND (normally 32767)* 

2 . 1. 7.9 FILE ****** IS IN ***** STATUS . 

Either a call has been made to AB0UT2 for a file which is currently 
being read, or a call has been made to READB2, SKIPR, or BSPR for a 
file which is being written. 

2.1.7.10 EOT DETECTED ON REEL ******. 

The physical end of the recording medium has been detected by 
ABOUT 1 , AB0UT2, or ENDF. 


2-1-14 


2.1.7*11 AN IOBS ERROR (CODE **) HAS OCCURRED ON REEL ******. 


An error has been detected by the Input-Output Buffering 
System on the specified reel. The various error codes are as 
fol lows: 

1 = Block sequence number error. 

2 = Check sum error. 

3 = Both block sequence and check sum errors. 

k = An unrecoverable read error. 

5 = An attempt to write on an unopened output file. 

6 = Buffer overflow (writing). 

7 = Buffer overflow (reading). 

8 = Unexpected mode change. 

9 = An unrecoverable write error. 

10 = Incomplete word read. 

2.1.8 THE SYSTEM REEL/FILE TABLES 

As mentioned in section 2. 1 . 1 , part of the SPACE communication 
nucleus consists of a named common block termed 'SYSTEM'. This 
block contains tables of information used by the file processing 
routines. Individual programs may also use any of this information, 
however, they must never alter it in any way. An entry within any 
of the eight tables bears a one-to-one correspondence with an entry 
in any other table; e.g., REELS(4) and LRS(4) are related. The format 
of an entry within each of the tables follow: 

NTAPES - An address integer reflecting the total number 
of reels specified in the 'REELS' card series. 

Note that this also represents the number of 
entries contained in each of the eight tables. 

REELS - Each entry contains the reel number of a reel 
being used in the job. 

CNTRLS - Each entry reflects the options which were 
exercised for the reel in the 'REELS' card 
series, as follows: 
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bit S 

1, if the reel is logically file 
protected. 

b i t 1 = 

1, if a reel header label had to 
be created for the reel. 

bit 2 

1, if mounting was deferred. 

b i t 3 = 

1, if unit assignment was made by 
an IxxR specification. 

bits 4-17 = 

The intersystem reservation code 
associated with the unit, or zero 

bits 18-20 = 

The iridex (l, 2, etc.) of the 


channel requested for the reel, 
or zero. 


bits 21-35 = The first word address of the IOBS 
file control block assigned to the 
reel . 


FILES 


LRS 

POS 


TRLPOS 


RWCNT 


UNITS 


Contains the file number of the file currently 
active on the associated reel. If a file is not 
active on the reel, this entry will be zero. 

Reflects the logical record size of the last file 
which was opened by READB1 or AB0UT1. 

Contains the position P implied by the file number 
of the last file opened by READB1 or ABOUTl. If an 
end of file was encountered by REA0B2, or written 
by ENOF, the sign of the entry is set negative. 
Reflects the position P implied by the file number 
of the last file which was written on the associated 
reel. If no files have been written on the reel 
within the job, the entry contains zero. 

The decrement contains a count of all files opened 
by ABOUTl, and the address contains a count of all 
files opened by READB1. 

Contains the symbolic units table entry of the device 
to which the reel was assigned. 
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2 . 1.9 THE BCD OUTPUT EDITOR 


In addition to the file processing subroutines contained in 
SPACE, the programmer has access to a flexible BCD output routine 
which is used by the monitor. With this routine, a given line can 
optionally be edited, typed, and/or written on S.S0U1. The edit- 
ing process consists of eliminating superfluous blank characters 
from the given prototype line image; i.e., if two or more contiguous 
blanks appear in the prototype, all but one will be eliminated. 

The prototype itself will not be changed. The entry point to the 
subroutine is a control section termed 'OEOIT 1 . Note that it can 
only be accessed by HAP coded programs. Linkage is as follows: 

TSX OED IT,4 

PFX PROTYP,SPC I NG,N 

(RETURN) 


where PROTYP = The FWA of the prototype line image 

SPCING = 0 for single space, 

1 for page restore, or 

2 for double space 

(Note - SPCING is ignored for type requests) 

N = The number of words in the prototype line image. 

PFX = Output options, as follows: 

PZE - Type with edit. 

PON - Type without edit. 

PTW - S.S0U1 and type with edit. 

PTH - S.S0U1 and type without edit. 

MZE - Edit only (at return, the AC contains 
PZE NEWFWA, ,NEWN) . 

MON - No operation performed. 

MTW - S.S0U1 with edit. 

MTH - S.S0U1 without edit. 

The use of 1 OED I T 1 is best shown by the following example. An 
integer of from 1-5 digits is to be converted to BCD, left adjusted 
with trailing blanks, and stored in line image 'PROTYP'. The line 
is then to be edited and written on S.S0U1 w/page restore. 
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CLA INTGER 

TSX CNVRT,4 CONVERT NUMBER TO BCD AND 

STQ. PROTYP+3 PLACE IN LINE IMAGE. 

TSX OED IT, 4 

MTW PR0TYP,1,6 


PROTYP BCI 6 , NETWORK CONTAINS ***** COMPONENTS. 

Suppose the number had been 29. If the line had been written without 
editing, it would have appeared as: 

bNETWORKbCONTA I NSb29bbbbC0MP0 NENTS . 

The above use of OED IT, however, would produce: 
bNETWORKbCONTA I NSb29bC0MP0NENTS . 

The following restrictions and conventions apply to the use of OEDIT: 

a. If the argument, N, is greater than 22 , it will be 
reduced to 22 . 

b. If N is zero, the call is ignored. 

c. The same prototype line may be used repeatedly. 

It is never altered or changed by OEDIT. 

d. The entire subroutine requires 91 locations. 

2.1.10 RETURNING TO THE MONITOR 

When a given program has finished processing, it must return 
control to the monitor so that the next program, if any, can be 
loaded and executed. This must be accomplished via the following 
CALL: 


CALL SPACE 


When this call is executed, the monitor will read the next program 
control card series in the job deck, if any, and take actions as 
prescribed in paragraph 2.1.2. 
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In many instances, however, some sequences of program executions 
are fixed. For example, a very large program may be split into two 
or more smaller programs, which must be executed successively. To 
eliminate the need of preparing a control card series for each of 
these programs, a 'direct chain 1 technique may be employed. This 
enables a given program to dictate the next program to be executed, 
as follows: 

CALL SPACE(PROGRM) 

'PROGRM' is the location of a word containing the BCD name of the 
next program in line for execution. When the direct chain technique 
is used, the monitor will not read the next control card series, nor 
will it disturb the information contained in the HC block or location 
WDCT. Machine registers including the AC, MQ, XR1, XR2, and XR^ are 
always saved when the monitor receives control, and are restored 
prior to giving control to the next program. Thus, when using the 
direct chain, a program could pass control parameters to the next 
program through any of these registers. Note that an unrecoverable 
error will result if the monitor cannot find the requested program 
in the 1 ibrary. 

2.1.11 A PROGRAMMING EXAMPLE 

The following program could be used to delete specified logical 
records from a given input file; i.e., create a new file reflecting 
the deletions. To use it, the program control card series must be 
prepared as follows: 

Columns 1-3 of first card = 99Z (program name) 

Word 1 = File number of input file. 

Word 2 = File number of output file. 

Word 3 = Record number of first record to be deleted. 

Word 4 = Record number of second record to be deleted. 

• 

Word N = Record number of (N-2)*^ record to be deleted, 
followed by an asterisk (*)• 
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For example, if the 3rd, 17th and 80th records of file 91006 were 
to be deleted, and the desired output file number was 478001, then 
the series would look like this: 

99Z 91006 478001 3 17 80 * 

Our program must not assume that the record numbers are given in an 
ascending order. Therefore, they must be sorted before the editing 
process begins. 

$LINK 99Z 

$IBFTC 99Z 

C SPACE EDITING PROGRAM - 2/18/65 

COMMON/ACCESS/HC( 1 00),WDCT, ID( 1 2), PROG 
INTEGER HC, WDCT 
DIMENSION BUFFER(254) 

CALL S0RT(HC(3), WDCT-2,1,1) 

CALL REA0B1 (HC(l ),0) 

CALL AB0UT1(HC(2), 10(5)) 

I = 0 
J = 3 

2 CALL READB2(HC(l ), BUFFER ( 1 ), 1 ,E0F) 

IF (EOF .NE. 0.) GO TO 1 
I=I-J+3 

WRITE (6,100) HC(2),I 

100 FORMAT(19H099Z OUTPUT FILE IS, 19, 

$14H, AND CONTAINS, 16, 9H RECORDS.) 

CALL SPACE 
1 1 = 1+1 

IF( I .NE. HC( j) ) CALL AB0UT2(HC(2),BUFFER(1),1) 

IF( I . EQ. HC(j ) ) J=J+1 

GO TO 2 

END 

•$ENTRY 
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2.2 


DEBUGGING FACILITIES 


2.2.1 THE DUMP PROGRAM 

The dump is one of the most effective tools which can be used 
for programming entomology; i.e., locating bugs, or errors, within 
a program. The SPACE dump program differs from other programs in 
the sense that it is part of the monitor itself; however, it may be 
treated and used as any other program. 

The control card series for the dump program must be prepared 
as follows: 

Columns 1-4 of first card = DUMP 

Words 1-3: Aj Bj Fj 

Words 4-6: A 2 B 2 F 2 


Words (N-2)-N: A^ 

3 3 


F klJ followed by an asterisk (*). 
N 

3 


The parameters A. and 8. represent decimal limits of areas to be 
dumped, inclusive. The relative ordering of these limits is immaterial, 
and either A. or B, may represent the upper or lower limit. The 
parameter F. is an integer indicating the dump format desired, as 
fol lows: 


F 

F 

F 


0, dump in octal (single line) 

1, dump as floating point decimal (single line) 

2, dump as integer (single line) 

3, dump in octal with mnemonics (double line) 


The direct chain technique may also be employed to use the dump 
program, as follows: 

CALL SPACE(4HDUMP,A 1 ,B ] ,Fj . . . 
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Parameters A . , B. and F. have the same definitions as before, 
ill 9 

except that A. and B. may be variable names; e.g., 

CALL SPACE ( 4HDUMP, ARRAY ( 1 ),ARRAY(50),2) 

If no parameters are supplied to the dump program in the DUMP 
control card series (or the calling sequence of a direct chain), then 
standard parameters will be assumed, as follows: 

A ] = S.SL0C/8*8 

B ] = S .SEND 

F , - 0 

Following execution of the dump program, the monitor will resume 
by reading the next program control card series, if any. Note that 
panel information (AC, MQ., etc.) will be given for each group of three 
parameters; however, only that given for the first group will reflect 
the status of the registers when the dump program was called. 

2.2.2 THE POST-EXECUTION FILE UTILITY PROCESSOR 

As mentioned in the introduction, the utility processor is a 
program residing in the library which may be considered as part of 
the monitor, only in core when needed. It is executed at the end 
of every job and performs the file utility requests specified in the 
REELS card series, provides statistics related to the job, and handles 
all terminal housekeeping functions. 

The file utility operations which may be performed are two-fold 
and are as fol lows : 

a. Dumping selected logical records within any given 
file(s) onto S.S0U1, formatted in octal, floating 
point decimal, integer, or BCD. 

b. Copying any given file onto another file. It is 
possible to move a file to another position on the 
same reel, provided that some other non-file protected 
reel is being used in the job. A file may also be 
copied to a reel which is logically file protected. 
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Any request to perform a utility operation on a nonexistent 
file, or one which cannot be accessed will be identified and 
otherwise ignored. It will never be treated as an error. 

When all file utility operations have been completed, the 
following information will be provided: 

a. The reel number of each reel used in the job. 

b. The symbolic and physical device to which each 
reel was assigned. 

c. Both the number of files read and the number 
of files written on each reel during the job. 

d. The position of the trailer label on each reel. 

Note that this reflects the number of useable 
files now contained on the reel. 

e. A tabular listing indicating the name and order 
of all programs currently residing in the library. 

The program name of the post-execution file utility processor 
is 'UTLITY*. In the event a program finds itself hopelessly lost, 
to the point where further execution should be abandoned, the follow- 
ing CALL should be executed; 

CALL SPACE(6HUTLITY) 

A program control card series is not required at the end of the job 
deck to execute the utility processoi — it will automatically be 
called by the monitor. 

2 . 2.3 ABSOLUTE BINARY PATCHING 

In order to debug a new program, the programmer must create 
his own 1 ibrary tape, incorporat ing his program, by employing the 
COPY feature of IBJOB. To eliminate the need of recreating the 
library each time a new bug is found, the programmer can make execution- 
time b i nary patches to the appropriate program(s). This is accomplished 
by prefixing the letter X to the program name in the control card 
series and following the series with binary cards, punched in standard 
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absolute column binary format. The last such card must be the 
transfer card and is identified by having a word count of zero. 

If the transfer address is non-zero, this address will be used 
as the entry point to the program; if it is zero, the standard 
entry point will be used. A checksum is computed and verified 
for each card unless (a) the i gnore-checksum bit in column one is 
punched, or (b) the checksum on the card is zero. If the computed 
checksum does not agree with the card checksum, a warning message 
will be typed stating the load address of the offending card. The 
condition will otherwise be ignored. 

An attempt to load a binary card below the origin of the first 
dependent link will be considered an error and will cause execution 
to be terminated. This is also true if a word count is given which 
exceeds 22^^, or if a BCD card is encountered before the transfer 
card. 

To employ the patching facility, the programmer must, of course, 
know the absolute location(s) into which the patch is to be placed. 

By exercising the MAP or LOGIC option on the $IBJ0B control card 
at copy time, he can determine the origin, or relocation factor, 
of the deck or subroutine which he wishes to patch. The absolute 
location of the patch can then be determined by adding this relocation 
factor to the relative location given in the assembly listing. Note 
that a technique of reserving a block of, say 50 cells in a program 
for future patching purposes deserves some merit. 

When the monitor reads a program control card series which 
indicates the presence of binary cards, the following actions take 
place: 

a. If the specified program is in the library, it 
is loaded into core storage. 

b. The binary cards are processed. 

c. Control is given to the program. 
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.2.4 USING THE LOGIC OR MEMORY HAP 


By employing the LOGIC or HAP option on the $IBJOB control card 
when creating a library, the programmer is provided with facilities 
for determining the absolute origin and extent of each deck or sub- 
routine contained therein. The logic option specifies a detailed 
storage-allocation map, while the MAP option specifies a non-detailed 
storage-allocation map. if the MAP option is used, in addition with 
the LOGIC option, the former results only in producing redundant 
information. 

Inspecting the logic map of the main link (SPACE), the programmer 
can find the absolute origin of each file processing routine. When- 
ever one of these subroutines is called, the location plus one of 
the call is stored in the address of the appropriate location referenced 
in the logic map. Thus, in the event of an unexpected stop or error 
condition (accompanied with a dump) these locations act as pointers 
to the last call executed for each of the routines. The monitor 
always initializes these locations between programs. 

The logic and memory maps which follow reflect a library con- 
figuration with SPACE as the main link, and four dependent links, 
each constituting one of the programs 1 31, 121, 6 1 I and UTLITY. It 
should be noted that the utility program is the last link in the 
sample library. If this were not the case, it might have to be passed 
over several times in the course of accessing the other programs, thus 
causing an unnecessary waste of tape passing time. 


2-2-05 


SPACE LIBRARY - VER. 2, MOD. 1 IRLDR — JOB SPACE 

LOGIC MAP 
FOR MAIN LINK 

REAL SECTION 'S.SLOC' - ASSIGNED ABSOLUTE ORIGIN 12253. 

DECK • SPC • ASSIGNED ABSOLUTE ORIGIN 12352. ADJUSTED LENGTH IS 04427. 


VIRTUAL 

SECT I ON 

4 S • B SR • 

- 

REFERS 

TO 

DCCK 

•IBNUC 

LOCATION 

0C172. 

V IRTUAL 

SECTION 

4 S . C LSE 4 

- 

REFERS 

TO 

DECK 

•IBNUC *, 

LOCATION 

CC170. 

VIRTUAL 

SECTI ON 

4 S . F B I N 4 

- 

REFERS 

TO 

DECK 

• INSYFB* , 

LOCATION 

12261. 

VIRTUAL 

SECTION 

4 S. FBOU 4 

- 

REFERS 

TO 

DECK 

•OUSYFB* , 

LOCATION 

12304. 

VIRTUAL 

SECTION 

4 S.FBPP 4 

- 

REFERS 

TO 

DECK 

•PPSYFB’ , 

LOCATION 

12327. 

VIRTUAL 

SECTI ON 

4 S.GETR 4 

- 

REFERS 

TO 

DECK 

•IBNUC •, 

LOCATION 

0C164. 

VIRTUAL 

SECT I ON 

4 S.GETL 4 

- 

REFERS 

ro 

DECK 

•IBNUC *, 

LOCATION 

GO 1 6 3 • 

VIRTUAL 

SECTI ON 

• S. I OOP 4 

- 

REFERS 

TO 

DECK 

•IBNUC •, 

LOCATION 

00157. 

VIRTUAL 

SECTION 

4 S. JNAM 4 

- 

REFERS 

TO 

DECK 

•IBNUC 

LOCATION 

GO 3 1 1 • 

VIRTUAL 

SECTION 

4 S . J X I T 4 

- 

REFERS 

TO 

DECK 

•POSTX *, 

LOCATION 

17040. 

VIRTUAL 

SECTION 

4 S. OPEN 4 

- 

REFERS 

TO 

DECK 

•IBNUC 

LOCATION 

0C161. 

VIRTUAL 

SECTI ON 

4 S. PUTP 4 

* 

REFERS 

TO 

DECK 

•IBNUC 

LOCATION 

G 0 1 66 . 

V IRTUAL 

SECTION 

4 S. PUTL 4 

- 

REFERS 

TO 

DECK 

•IBNUC •, 

LOCATION 

00165. 

V IRTUAL 

SECTION 

4 S. SAVE 4 

- 

REFERS 

TO 

DECK 

•IBNUC 

LOCATION 

0C2 50 . 

VIRTUAL 

SECTI ON 

4 S. SCCR 4 

- 

REFERS 

TO 

DECK 

•IBNUC •-, 

LOCATION 

00143. 

VIRTUAL 

SECTION 

•S.SCCI 4 

- 

REFERS 

TO 

DECK 

•IBNUC •, 

LOCATION 

00266. 

VIRTUAL 

SECTION 

4 S . SD AT 4 

- 

REFERS 

TO 

DECK 

•IBNUC «, 

LOCATION 

CC2 1 3 . 

VIRTUAL 

SECTION 

4 S.SEND 4 

- 

REFERS 

TO 

DECK 

'IBNUC 

LOCATION 

77777. 

VIRTUAL 

SECTI ON 

4 S. SLCR 4 

- 

REFERS 

TO 

DECK 

•IBNUC •, 

LOCATION 

CC1 35. 

VIRTUAL 

SECT I ON 

4 S.SLOC 4 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

12253. 


VIRTUAL 

SECTION 

4 S. SL TC 4 

- 

REFIRS 

TO 

DECK 

•IBNUC 4 , 

LOCATION 

0C2L0. 

V IRTUAL 

SECT I ON 

4 S. SUOO 4 

- 

REFERS 

TO 

DECK 

•IBNUC 4 , 

LOCATION 

CC337. 

VIRTUAL 

SECTION 

4 S. SUM 4 

- 

REFERS 

TO 

DECK 

•IBNUC 4 , 

LOCATION 

0C207. 

V IRTUAL 

SECTION 

4 S.X ACT 4 

- 

REFERS 

TO 

DECK 

•IBNUC 4 , 

LOCATION 

00145. 

VIRTUAL 

SECTION 

4 S.XCVA' 

- 

REFERS 

TO 

DECK 

•IBNUC *, 

LOCATION 

G 0 1 5 3 . 

V IRTUAL 

SECTION 

4 S • X D V 0 4 

- 

REFERS 

TO 

DECK 

•IBNUC 4 , 

LOCATION 

0 C 1 5 4. 

V IRTUAL 

SECTION 

4 S. XOVA* 

- 

REFERS 

TO 

DECK 

•IBNUC 4 , 

LOCATION 

00151. 

VIRTUAL 

SECT 1 ON 

4 S.XPRT 4 

- 

REFERS 

TO 

DECK 

•IBNUC 4 , 

LOCATION 

00147. 

V IRTUAL 

SECTI ON 

4 S.XPSE 4 

- 

REFERS 

TO 

DECK 

•IBNUC 4 , 

LOCATION 

0 G 1 5 0 . 

V IRTUAL 

SECTION 

4 S.XSNS 4 

- 

REFERS 

TO 

DECK 

•IBNUC 5 , 

LOCATION 

0C3CC. 

VIRTUAL 

SECT I ON 

4 POUMP • 

- 

REFERS 

TO 

DECK 

•DMP 4 f 

LOCATION 

20731. 

VIRTUAL 

SECT I ON 

4 READHP 4 

- 

REFERS 

TO 

DECK 

•RDH44 4 , 

LOC AT I ON 

22606. 

VIRTUAL 

SECTION 

4 SCAN 4 

- 

REFERS 

TO 

DECK 

•RDH44 4 , 

LOCATION 

2 3 1 CO . 

REAL SECTION 

4 SIGNCN 4 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

12352. 


REAL SECTION 

•SPACE 4 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

13533. 


REAL SECTION 

4 RE ADB 1 4 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

1 4242. 


REAL SECTION 

4 RE A08? 4 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

14246. 


REAL SECTION 

4 ABOUT 1 4 


ASSIGNED 

ABSOLUTE ORIGIN 

14252. 


REAL SFCTION 

4 AB0UT2 4 

- 

ASS IGNED 

ABSOLUTE ORIGIN 

14256. 


real section 

4 SKI PR 4 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

14262. 


REAL SECTION 

•BSPR 4 

- 

ASS IGNED 

ABSOLUTE ORIGIN 

14266. 


REAL SECTION 

4 ENDF 4 

- 

ASSIGNEO 

ABSOLUTE ORIGIN 

14272. 


REAL SECTION 

4 OE 0 I T 4 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

15344. 


REAL SECTION 

4 SYSTEM 4 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

16476. 


REAL SFCTION 

4 ACCESS 4 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

16617. 



DECK 'DSSCAN* ASSIGNED ABSOLUTE ORIGIN 17001. ADJUSTED LENGTH IS CC037. 

VIRTUAL SECTION 'SCAN • - REFERS TO DECK • R DH44 *, LOCATION 231C0. 
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OECK 


SPACE 

library - 

VER. 2, MOD 

. 1 


IBLQR - 

- JOB 

VIRTUAL SECTION 

•S.SLCC 4 

. 

ASSIGNED 

ABSOLUTE 

OR IG IN 

12253. 

REAL 

SECTl ON 

• OSSCAN* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

17007. 

• IflNUC • ASSIGNED ARSCLUT 

E 

ORIGIN 00000. ABSOLUTE DECK. 

REAL 

SFCTI ON 

• S. SUTL* 

- 

ASS IGNFD 

ABSOLUTE 

ORIGIN 

00032. 

REAL 

SECTl ON 

4 S.SLCR 4 

- 

ASS IGNEO 

ABSOLUTE 

ORIGIN 

00135. 

REAL 

SECTl ON 

4 S . SR P T * 

- 

ASS IGNED 

ABSOLUTE 

ORIGIN 

00136. 

REAL 

SECTl ON 

• S. SDMP* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00137. 

REAL 

SECTl ON 

• S. SRUP 4 

- 

ASS IGNFD 

ABSOLUTE 

ORIGIN 

00140. 

REAL 

SFCTI ON 

* S. SRET 4 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00141. 

REAL 

SECTl ON 

•S.SRST* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00142. 

REAL 

SECTl ON 

• S. SCCR 4 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00143. 

REAL 

SECTl ON 

• S.Sl CR 4 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00144. 

REAL 

SECTl ON 

• S. XACT 4 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00145. 

R EAL 

SEC TI ON 

• S • X 0 AC • 

- 

ASS IGNEO 

ARSOLUTE 

ORIGIN 

00146. 

REAL 

SFCTI ON 

• S. X P R T * 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00147. 

REAL 

SECTl ON 

• S . X P S E 4 

- 

ASSIGNED 

ABSOLUTE 

OR IGIN 

00150. 

RFAL 

SEC TI ON 

• S. X0VA« 

- 

ASSIGNED 

ARSOLUTE 

ORIGIN 

00 l 5 L • 

REAL 

SECTl ON 

• S. X'JVD* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00152. 

REAL 

SEC n ON 

• S. XOVA* 

- 

ASSIGNED 

ABSOLUTE 

OR IGIN 

00153. 

RFAL 

SEC TI ON 

• S. XDVO* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00154. 

REAL 

SECTl ON 

• S. XUCV* 

- 

ASSIGNED 

ARSOLUTE 

ORIGIN 

00155. 

R EAL 

SECTl ON 

• S. SCKT 4 

- 

ASS IGNED 

ABSOLUTE 

OR IGIN 

00156. 

REAL 

SECTION 

4 S. I OOP* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00157. 

R EAL 

SEC TI ON 

• S. 1 OLS* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00160. 

RFAL 

SEC TI ON 

* S.SCBL 4 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

CO 160. 

R-AL 

SECTl ON 

• S • OP E N • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00161 . 

RFAL 

SECTION 

• S.0PNL 4 

- 

ASSIGNED 

ARSOLUTE 

ORIGIN 

00162. 

REAL 

SECTl ON 

• S.GFTL* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00163. 

REAL 

SEC TI ON 

• S . G E T P • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00164. 

REAL 

SEC TI ON 

• S. PUTL* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00165. 

REAL 

SECTION 

• S. PUT B 1 

- 

ASS IGNED 

ARSOLUTE 

OR IGIN 

00166. 

REAL 

SECTION 

4 S. PLCC 4 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00167. 

REAL 

SECTl ON 

• S.CLSF 4 

- 

ASSIGNED 

ARSOLUTE 

ORIGIN 

C 0 1 70 . 

REAL 

SFCTI ON 

•S.CLSL* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00171. 

REAL 

SECTl ON 

•S.BSR • 

- 

ASS IGNED 

ARSOLUTE 

OR IGIN 

00172. 

REAL 

SFCTI ON 

•S.WFF 4 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00173. 

RFAL 

SECTl ON 

•S.RTW • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00174. 

REAL 

SFCTI ON 

• S '. F E 0 R • 

- 

ASSIGNED 

ARSOLUTE 

ORIGIN 

00175. 

RFAL 

SECTl ON 

• S.CKPT* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

CO 1 76 . 

REAL 

SECTl ON 

* S. SLVL 1 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00177. 

REAL 

SECTl ON 

• S. SCOR 4 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00200. 

REAL 

SECTl ON 

• S. SCSN 4 

- 

ASSIGNED 

ABSOLUTE 

OR IGIN 

00201. 

REAL 

SECTl ON 

• S.SPND* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00202. 

REAL 

SECTl ON 

• S.SC^X* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00203. 

REAL 

SEC TI ON 

• S.SPER* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00204. 

REAL 

SECTl ON 

4 S.SURC* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00205. 

REAL 

SECTl ON 

4 S.SSBC 4 

- 

ASSIGNED 

ARSOLUTE 

ORIGIN 

00206. 

real 

SECTl ON 

4 S.SUM * 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00207. 

RFAL 

SECT! ON 

4 s. sl re 4 

- 

AS S I GNEO 

ABSOLUTE 

OR IG IN 

00210. 

REAL 

SECTl ON 

4 S.SRCC 4 

- 

ASSIGNED 

ARSOLUTE 

ORIGIN 

00211. 

REAL 

SECTl ON 

4 S.BSLA* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00212. 

REAL 

SFCTI ON 

4 S . SO AT 4 

- 

ASSIGNED 

ARSOLUTE 

ORIGIN 

00213. 

R FAL 

SFCTI ON 

4 S. SCLK* 

- 

ASSIGNED 

ABSOLUTE 

OR IGIN 

00215. 

RFAL 

SECTl ON 

•S.SCIS 4 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00216. 


SPACE 
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SPACE LIBRARY 


VER. 2, M0C. 1 


I6LDR 


J (3 B SPACE 


REAL 

SECTION 

• S.SOEX' 

- 

ASSIGNED 

ABSOLUTE 

OR IGIN 

00217 

REAL 

SECTION 

• S • UC BL • 

- 

ASSIGNED 

ABSOLUTE 

OR I G IN 

00220 

REAL 

SECTION 

• S. SCUR’ 

- 

ASSIGNED 

ABSOLUTE 

OR IGIN 

00221 

REAL 

SECTI ON 

1 S.SFAZ* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00222 

REAL 

SEC T l ON 

• S.SSWl • 

- 

ASS IGNED 

ABSOLUTE 

OR IGIN 

00223 

REAL 

SECTI ON 

• S • S F L G f 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00224 

REAL 

SECTI ON 

• S. SAVE* 

- 

ASSIGNED 

ABSOLUTE 

OR IGTN 

00250 

REAL 

SFCTI ON 

* s. scci • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00266 

REAL 

SECTI ON 

• S.POCT* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00267 

REAL 

SECTI ON 

# S.SHCR* 

- 

ASS IGNED 

ABSOLUTE 

ORIGIN 

00270 

REAL 

SECTI ON 

• S.SSCH' 

- 

ASS IGNED 

ABSOLUTE 

ORIGIN 

00275 

REAL 

SECTION 

• S. SSNS' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00276 

REAL 

SECTI ON 

* S • XT C T • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00277 

REAL 

SFCTI ON 

' S • X S N 5 ' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00300 

REAL 

SECTI ON 

• S . XL TP • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00302 

REAL 

SECTI ON 

• S. XSCH* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00303 

REAL 

SECTI ON 

• S.XTPS* 

- 

ASSIGNED 

ABSOLUTE 

OR IGIN 

00304 

REAL 

SECTI ON 

• S.XCPS' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00305 

REAL 

SFCTI ON 

1 S . N A P T • 

- 

ASS IGNFD 

ABSOLUTE 

ORIGIN 

00306 

REAL 

SFCTI ON 

• S . S F BL * 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00307 

REAL 

SFCTI ON 

1 S. JNA^' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00311 

RFAL 

SECTION 

• S. I AU N • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00312 

REAL 

SFCTI ON 

* S.OAUN* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00313 

RFAL 

SFCTI ON 

* S . L DU N 1 

- 

ASS IGNEO 

ABSOLUTE 

OR IGIN 

00314 

REAL 

SECTI ON 

• S.EDUN' 

- 

ASS IGNED 

ABSOLUTE 

ORIGIN 

00315 

REAL 

SECTI ON 

• S.SRUS* 

- 

ASS IGNED 

ABSOLUTE 

ORIGIN 

00316 

REAL 

SECTI ON 

• S* SPRP* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

CO 3 l 7 

REAL 

SFCTI ON 

• S.SYCV' 

- 

ASS IGNEO 

ABSOLUTE 

ORIGIN 

00320 

REAL 

SECTI ON 

* S.SYCW' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00321 

REAL 

SECTI ON 

• S.SYCX' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00322 

RFAL 

SECTI ON 

• S.SYCY* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00323 

RFAL 

SECTI ON 

• S.SYCZ' 

- 

ASS I GNED 

ABSOLUTE 

ORIGIN 

00324 

REAL 

SECTI ON 

• S.SYFS* 

- 

assigned 

ABSOLUTE 

OR IGIN 

00325 

REAL 

SECTI ON 

* S • S L B 1 * 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00326 

REAL 

SECTI ON 

* S. SLB2* 

- 

ASS I GNED 

ABSOLUTE 

ORIGIN 

00327 

R EAL 

SECTION 

• S.SIN1* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00 3 30 

RFAL 

SECTI ON 

• S.SIN2' 

- 

ASS IGNED 

ABSOLUTE 

ORIGIN 

00331 

REAL 

SECTI ON 

• s.soui • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00332 

RFAL 

SECTION 

1 S.S0U2' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00333 

R EAL 

SECTI ON 

• S.SPP1* 

- 

ASSIGNED 

arsolute 

ORIGIN 

00334 

R r AL 

SECTI ON 

• S.SPP2' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00335 

REAL 

SECTI ON 

• S.SCKP 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00336 

REAL 

SECTION 

• S.SUOO* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00337 

REAL 

SEC TI ON 

• S.SU01* 

- 

ASSIGNEO 

ABSOLUTE 

ORIGIN 

00340 

RFAL 

SFCTI ON 

• S • SU02 • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00341 

REAL 

SECTION 

' S. SU03* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00342 

RFAL 

SECTION 

• S.SU04' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00343 

REAL 

SECTI ON 

• S. SU05* 

- 

ASSIGNEO 

ABSOLUTE 

ORIGIN 

00344 

RFAL 

SECTI ON 

* S • SU06 • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00345 

RFAL 

SECTION 

• S.SU07* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00346 

REAL 

SECTI ON 

• S.SU08' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00347 

REAL 

SECTION 

• S. SUOO' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00350 

REAL 

SCC TI ON 

• S.SU10' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00351 

REAL 

SECTI ON 

1 S.SU11* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

00352 

RFAL 

SECTI ON 

• S.SU12' 

- 

ASSIGNED 

ARSOLUTE 

ORIGIN 

00353 


2 - 2-08 


SPACE LIBRARY - VCR. 2, MOD. 1 IBLDR — JOB 


R f A L 

SECTI ON 

• S.SUL3' 

- 

R F AL 

SFCTI ON 

• S.SU1A* 

- 

RFAL 

SFC TI ON 

• S.SU15* 

- 

RFAL 

SECTION 

1 S • S U 1 6 • 

- 

RFAL 

SFCTI ON 

• S.SUTT' 

- 

RFAL 

SECTI ON 

• S.UCBT* 

- 

RFAL 

SFCTI ON 

• S. SCBT' 

- 

RFAL 

SECTI ON 

1 S. SDPA’ 

- 

RFAL 

SFCTI ON 

* I RDM P • 

- 

RFAL 

SECTI ON 

• S. SORG' 

- 

R p AL 

SECTI ON 

1 S.LS01 ' 

- 

REAL 

SECTI ON 

• S.LRS1 1 

* 

real 

SECTI ON 

• S.LRS2* 

- 

RFAL 

SFCTI ON 

• S . L R S3 • 

- 

R FAL 

SECTI ON 

1 S.LFC1 # 

- 

RFAL 

SFCTI ON 

• S.LFE2' 

- 

RFAL 

SECTION 

■ S.LFXT* 

- 

RFAL 

SECTI ON 

• S. LVI 1 * 

- 

RFAL 

SFCTI ON 

• S. LW03' 

- 

RFAL 

SECTI ON 

• S . L RHA 1 

- 

RFAL 

SFCTI ON 

* S . L S T A • 

- 

RFAL 

SFCTI ON 

• S . L V R R ' 

- 

RFAL 

SECTI ON 

* S. LERR* 

- 

RFAL 

SFCTI ON 

1 S • S P 1 D • 

- 

RFAL 

SECTI ON 

• S.SP2D* 

- 

RFAL 

SECTI ON 

• S. L V L N 1 

- 

real 

SECTI ON 

* S. LXRS* 

- 

R p AL 

SECTI ON 

• S • S L N D 1 

- 

RFAL 

SECTI ON 

• S . B DP P 1 

- 

R FAL 

SFCTI ON 

■ S. SSND' 

- 

REAL 

SFCTI ON 

1 S. SEND' 

- 


DECK • INSYFR 1 ASSIGNED ABSOLUTE 
FILE ’S.FBIN' - 

DECK ' CUS YF B 1 ASSIGNED ABSOLUTE 
FILE ' S • FROli • - 


ASSIGNED ABSOLUTE ORIGIN 00354. 
ASSIGNED ABSOLUTE ORIGIN 00355. 
ASSIGNED ABSOLUTE ORIGIN 00356. 
ASSIGNED ABSOLUTE ORIGIN 00357. 
ASSIGNED ABSOLUTE ORIGIN 00360. 
ASSIGNED ABSOLUTE ORIGIN 00600. 
ASSIGNED ABSOLUTE ORIGIN 00760. 
ASSIGNED ABSOLUTE ORIGIN 0L643. 
ASSIGNED ABSOLUTE ORIGIN 01653. 
ASSIGNED ABSOLUTE ORIGIN 03000. 
ASSIGNED ABSOLUTE ORIGIN 06401. 
ASSIGNED ABSOLUTE ORIGIN 06433. 
ASSIGNED ABSOLUTE ORIGIN 06440. 
ASSIGNED ABSOLUTE ORIGIN 06441. 
ASSIGNED ARSOLUTE ORIGIN 06445. 
ASSIGNED ABSOLUTE ORIGIN 06452. 
ASSIGNED ABSOLUTE ORIGIN 06500. 
ASSIGNED ABSOLUTE ORIGIN 06514. 
ASSIGNED ABSOLUTE ORIGIN 06573. 
ASSIGNED ABSOLUTE ORIGIN 06661. 
ASSIGNED ABSOLUTE ORIGIN 07050. 
ASSIGNED ABSOLUTE ORIGIN 07343. 
ASSIGNED ABSOLUTE ORIGIN 07405. 
ASSIGNFD ABSOLUTE ORIGIN 10000. 
ASSIGNED ABSOLUTE ORIGIN 10000. 
ASSIGNED ABSOLUTE ORIGIN 10000. 
ASSIGNED ABSOLUTE ORIGIN 10044. 
ASSIGNED ARSOLUTE ORIGIN 10074. 
ASSIGNED ABSOLUTE ORIGIN 12126. 
ASSIGNED ABSOLUTE ORIGIN 12253. 
ASSIGNED ABSOLUTE ORIGIN 77777. 

ORIGIN 00000. ADJUSTED LENGTH IS 
ASSIGNED ARSOLUTE ORIGIN 12261. 

ORIGIN 00000. ADJUSTED LENGTH IS 
ASSIGNED ABSOLUTE ORIGIN 12304. 


SPACE 


ccoco. 


ccoco. 


DECK 'POSTX ' ASSIGNED ABSOLUTE ORIGIN 17040. ADJUSTED LENGTH IS 0C112. 


V TRTUAL 

SECTION 

* S. SRET* 

- 

REFERS 

TO 

DECK 

• IRNUC 


LOCATION 

001 A 1 

V IRTUAL 

SECTION 

• S. SCUR' 

- 

refers 

TO 

DECK 

• IBNUC 

* , 

LOCATION 

0C221 

V IRTUAL 

SECTION 

■ S. SLOC* 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

12253. 


VIRTUAL 

SECT ION 

• S.CLSC* 

- 

REFERS 

TO 

DECK 

• IRNUC 

• » 

LOCATION 

00170 

virtual 

SECTION 

• S. SCCR' 

- 

REFERS 

TO 

DECK 

• IRNUC 

* , 

LOCATION 

00 1 A 3 

V IRTUAL 

SECTION 

• S.SIM' 

- 

REFERS 

TO 

DECK 

1 IBNUC 

• , 

LOCATION 

0C330 

VIRTUAL 

SECTION 

• S.SSwI* 

- 

refers 

TO 

DECK 

• I BNUC 

•t 

LOCATION 

00223 

VIRTUAL 

SECT I ON 

• S.SOUl* 

- 

REFERS 

TO 

DECK 

• IRNUC 

' , 

location 

0C332 

VIRTUAL 

SECTION 

* S.SICR* 

- 

REFERS 

TO 

DECK 

• IRNUC 

% 

LOCATION 

00 1 A A 

V IRTUAL 

SECT I ON 

• S.SPP1 • 

- 

REFERS 

TO 

DECK 

• IRNUC 

• . 

location 

0C33A 

REAL SECTION 

• S. JXIT* 

- 

ASSIGNED 

ARSOLUTE ORIGIN 

170A0. 



DEC 1 ' 1 PPSYF B • ASSIGNED ABSOLUTE 
F ILE • S . FBPP ' - 


ORIGIN 00000. ADJUSTED LENGTH IS 
ASSIGNED ABSOLUTE ORIGIN 12327. 


CCOCO. 


DECK ' F05 


ASSIGNED ABSOLUTE ORIGIN 17152. ADJUSTED LENGTH IS CC0C1 



DECK 


DECK 


DECK 


SP&CC LIBRARY - 

VER. 2, 

MOC 

. 1 



IBLDR 

— JOB 

SPACE 

VIRTUAL 

SECTION 

* S • F ft IN* 


REFERS 

TO 

DECK 

' INSYFB 1 , 

LOCATION 

12261 

REAL SECTION 

• FIL05. • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

17152. 


• F06 • 

ASSIGNED ABSOLUTE 

ORIGIN 

17153. 

AO JUS TED 

LENGTH IS 

00001. 

VIRTUAL 

SECTION 

• S.FBCU* 

- 

REFERS 

TO 

DECK 

• 0USY F B * « 

LOCATION 

12304 

REAL SECTION 

• F I L06 . • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

17153. 


• t OS • 

ASSIGNED ABSOLUTE 

ORIGIN 

17154. 

ADJUSTEO 

LENGTH IS 

C0276. 

V IRTUAL 

section 

• FEXEK. • 

- 

REFERS 

TO 

DECK 

•X£M *, 

LOCATION 

20473 

V IRTUAL 

SECT I ON 

•EXIT * 

- 

REFERS 

TO 

DECK 

•X IT « , 

LOCATION 

20700 

VIRTUAL 

SECT I ON 

• S. FBOU* 

- 

REFERS 

TO 

DECK 

1 0USYFB • , 

LOCATION 

12304 

VIRTUAL 

SECTION 

• S.SINl* 

- 

REFERS 

TO 

DECK 

•IBNUC *, 

LOCATION 

00330 

V IRTUAL 

SECTION 

• S.SPRP* 

- 

REFERS 

TO 

DECK 

•IBNUC 

LOCATION 

00317 

VIRTUAL 

SECTION 

•S.SCCI* 

- 

REFERS 

TO 

DC CK 

•IBNUC *, 

LOCATION 

00266 

VIRTUAL 

SECT I ON 

• S. PUTl * 

- 

REFERS 

TO 

DECK 

'IBNUC *, 

LOCATION 

00165 

V IRTUAL 

SECTION 

* S • SCCR • 

- 

REFERS 

TO 

DECK 

•IBNUC *, 

LOCATION 

00143 

V IRTUAL 

SECTION 

• S.CLSE* 

- 

REFERS 

TO 

oeck 

' IBNUC • f 

LOCATION 

00170 

V IRTUAL 

SECT I ON 

• S. OPEN* 

- 

REFERS 

TO 

DECK 

•IBNUC * , 

LOCATION 

00161 

VIRTUAL 

SECT I ON 

• S.SPP1* 

- 

REFERS 

TO 

DECK 

•IBNUC *, 

LOCATION 

00334 

V IRTUAL 

SECTION 

• S. PLOC* 

- 

REFERS 

TO 

DECK 

•IBNUC *, 

LOCATION 

00167 

V IRTUAL 

SECTION 

• S . S OU 1 • 

- 

REFERS 

TO 

DECK 

•IBNUC * , 

LOCATION 

OC332 

V IRTUAL 

SECT I ON 

• S. SAVE* 

- 

REFERS 

TO 

DECK 

•IBNUC •, 

LOCATION 

00250 

REAL SECTION 

• IOSIJP.* 

- 

ASSIGN 

ED 

ABSOLUTE ORIGIN 

17154. 



R CAL SECTION 
REAL SECTION 

real section 

REAL SECTION 
REAL SECTION 


CK END • 
SYSOU. 
SYSCK. 
RERRX. 
REOFX. 


ASSIGNED 

ASSIGNED 

ASSIGNED 

ASSIGNED 

ASSIGNED 


ABSOLUTE 

ABSOLUTE 

ABSOLUTE 

ABSOLUTE 

ABSOLUTE 


OR IG 
OR IG 
OR IG 
GRIG 
OR IG 


17257. 

17301. 

17334. 

17372. 

17402. 


REAL SECTION 

• R E 0 R X . • - 

ASSIGNED 

ABSOLUTE ORIG 

IN 

17410. 


REAL SECTION 

• I OC EL . • - 

ASSIGNED 

ABSOLUTE ORIG 

IN 

17430. 


• R WO • 

ASSIGNED ABSOLUTE 

ORIGIN 

17452. 

ADJUSTED 

LENGTH IS 

00531. 

VIRTUAL 

SECTION 

•ERLOC.* - 

REFERS 

TO 

06 CK 

• X EM 


LOCATION 

20472. 

virtual 

SECTION 

• I OSUP. • - 

REFERS 

TO 

OECK 

• IOS 

• t 

LOCATION 

17154. 

virtual 

SECTION 

* CK C NC . • - 

REFERS 

TO 

DECK 

• IOS 

* » 

LOCATION 

17257. 

VIRTUAL 

SECTION 

• F E X E M . • - 

REFERS 

TO 

DECK 

• X EM 

5 f 

LOCATION 

20473. 

virtual 

SECTION 

• I OC E L . • - 

REFERS 

TO 

DECK 

' IOS 


LOCATION 

17430. 

virtual 

SECTION 

•S.GETL* - 

REFERS 

TO 

DECK 

• I BNUC 

• » 

LOCATION 

0C163. 

virtual 

SECTION 

• S . PUTL • - 

REFERS 

TO 

DECK 

• l BNUC 

* , 

LOCATION 

00165. 

virtual 

SECTION 

•S.GETP* - 

REFERS 

TO 

DECK 

• I BNUC 

1 , 

LOCATION 

00164. 

virtual 

SECTION 

* S . PL OC • - 

REFERS 

TO 

OECK 

• IBNUC 

1 , 

LOCATION 

OCl 6 7 . 

V IRTUAL 

SECT ION 

* S . OPEN* - 

REFERS 

TO 

DECK 

* IBNUC 


LOCATION 

0C161. 


R T A L SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 
R p AL SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 


T SH I 0 . 
STHIO. 
I OHCM, 
HDL I C « 
HNL f 0 « 
HCT. 

I OHC T < 
ICHLP, 
I CHRP. 
IOHEF. 
I OHS E , 
I OHI 0, 
SC. 


ASSIGNED ABSOLUTE ORIGIN 17452. 
ASSIGNED ABSOLUTE ORIGIN 17472. 
ASSIGNED ABSOLUTE ORIGIN 17537. 
ASSIGNED ABSOLUTE ORIGIN 17570. 
ASSIGNED ABSOLUTE ORIGIN 17573. 
ASSIGNED ABSOL-UTE ORIGIN 17614. 
ASSIGNED ABSOLUTE ORIGIN 17615. 
ASSIGNED ABSOLUTE ORIGIN 17625. 
ASSIGNED ABSOLUTE ORIGIN 17646. 
ASSIGNED ABSOLUTE ORIGIN 17665. 
ASSIGNED ABSOLUTE ORIGIN 1767?. 
ASSIGNED ABSOLUTE ORIGIN 17702. 
ASSIGNED ABSOLUTE ORIGIN 20021. 


SPACE L I BR AR Y - VCR. 2 


MOD 


l 


IBLDR 


JOB SPACE 


DECK 


DECK 


DECK 


DECK 


real 

SECTl ON 

•CCA. « 

- 

ASSIGNEO 

ABSOLUTE 

ORIGIN 

20027. 

REAL 

SEC TI ON 

1 C C Q . ■ 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

20031. 

REAL 

SFCTI ON 

•BUI. * 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

20037. 

RFAL 

SECTl ON 

*8U4. * 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

20044 * 

R FAL 

SEC TI ON 

•BIJIO. • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

20047. 

REAL 

SECTION 

1 RU 22. • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

20053. 

REAL 

SECTl ON 

•DE60. • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

20077. 

R FAL 

SECTl ON 

• DE 7 0 . ' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

20100. 

REAL 

SECTl ON 

1 xc. • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

20110. 

RFAL 

SECTl ON 

•filic.' 

- 

ASSIGNED 

ABSOLUTE 

OR IGIN 

20141. 

R FAL 

SECTION 

• RTNI 0. • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

20144. 

RFAL 

SECTION 

• GETCH.* 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

20151. 

R FAL 

SECTION 

•GETC3. • 

- 

ASSIGNEO 

ABSOLUTE 

ORIGIN 

20152. 

RFAL 

SECTl ON 

•GETC. • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

20163. 

REAL 

SECTION 

• CVCFL. • 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

20165. 


• ACV * ASSIGNED ABSOLUTE ORIGIN 20203. ADJUSTED LENGTH IS 0C030. 


V IRTUAL 

SECTION 

•BUI. ' 

- 

REFERS 

TO 

DECK 

•RWD 

1 , 

LOCATION 

20037. 

V IRTUAL 

SECTl ON 

•RU10. • 

- 

REFERS 

TO 

DECK 

'RWD 

• * 

LOCATION 

20047. 

V IRTUAL 

SECTION 

'CCA. 

- 

REFERS 

TO 

DECK 

• RWD 


LOCATION 

2C027. 

V IRTUAL 

SECTION 

•GETCH.* 

- 

REFERS 

TO 

DECK 

* R WD 

• ♦ 

LOCATION 

20151. 

V IRTUAL 

SECTION 

•HCT. • 

- 

REFERS 

TO 

DECK 

'RWD 

• , 

LOCATION 

17614. 

V IRTUAL 

SECT I ON 

• SC. 

- 

REFERS 

TO 

DECK 

' R WD 

f . 

LOCAT I ON 

20021. 

V IRTUAL 

SECT I ON 

• xc. 

- 

REFERS 

TO 

DECK 

•RWD 

• » 

LOCATION 

20110. 

V IRTUAL 

SECTION 

' CVCEL. ' 

- 

REFERS 

TO 

DECK 

•RWD 

• * 

LOCATION 

20165. 

V IRTUAL 

SECTl ON 

* I CHCM. • 

- 

REFERS 

TO 

DECK 

* R WD 


LOCATION 

1 7537. 

V IRTUAL 

SECTl ON 

• I 0 C E L . 1 

- 

REFERS 

TO 

DECK 

• I OS 

• » 

LOCATION 

17430. 

REAL SECTION 

' I OH A C • ’ 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20203. 


1 XCV 

ASSIGNED ABSOLUTE 

ORIGIN 

20233. 

ADJUSTED 

LENGTH IS 

CC016. 

VIRTUAL 

SECT I ON 

•CCG. 1 

- 

REFERS 

TO 

DECK 

•RwD 

' . 

LOCATION 

20031 . 

V IRTUAL 

SECTION 

• GETCH.’ 

- 

REFERS 

TO 

DECK 

• R WD 


LOCATION 

20151. 

VIRTUAL 

SECTION 

•HCT. • 

- 

REFERS 

TO 

DECK 

•RWD 

• . 

LOCATION 

17614. 

V IRTUAL 

SECTION 

'SC. • 

- 

REFERS 

TO 

DECK 

•RWD 

• , 

LOCATION 

20021. 

V IRTUAL 

SECTION 

' XC. 

- 

refers 

TO 

DECK 

•RWD 

4 . 

LOCATION 

20110. 

V IRTUAL 

SECTION 

• 10HCT.' 

- 

REFERS 

TO 

DECK 

•RWD 

•* 

LOCATION 

17615. 

V IRTUAL 

SECTION 

• I0CEL.’ 

- 

REFCRS 

TO 

DECK 

' IOS 


LOCATION 

17430. 

virtual 

SECTION 

• CVCFL. ' 

- 

REFERS 

TO 

DECK 

•RWD 

1 , 

LOCATION 

20165. 

RFAL SECTION 

* I OHX C • 1 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20233. 


• FPT 

ASSIGNED ABSOLUTE 

ORIGIN 

20251. 

ADJUSTED 

LENGTH IS 

CC216. 

V IRTUAL 

SECTION 

* SYSOU. • 

- 

REFERS 

TO 

DECK 

• IOS 

•t 

LOCATION 

17301. 

VIRTUAL 

SECTION 

’ ERLOC. • 

- 

REFERS 

TO 

DECK 

• X EM 

1 , 

LOCATION 

20472. 

V IRTUAL 

SECTION 

* FEXEM . • 

- 

REFERS 

TO 

DECK 

• X EM 

•t 

LOCATION 

20473. 

V IRTUAL 

SECTl ON 

•EXIT • 

- 

REFERS 

TO 

DECK 

•X IT 

% 

LOCATION 

20700. 

V IRTUAL 

SECTION 

• S.XOVA* 

- 

REFERS 

TO 

DECK 

• IBNUC 

# f 

LOCATION 

00151. 

VIRTUAL 

SECTION 

* S.SDAT* 

- 

REFERS 

TO 

DECK 

• IBNUC 

•» 

LOCATION 

00213. 

virtual 

SECTION 

• S.SCCR* 

- 

REFERS 

TO 

DECK 

• IBNUC 


LOCATION 

00143. 

REAL SECTION 

* SETFP. • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20251 . 


REAL SECTION 

•GGDAT1 1 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20300. 


REAL SECTION 

• GGDATE • 

- 

ASSIGNED 

A8S0LUTE ORIGIN 

20301 . 


REAL SECTION 

* OVERF. ' 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20453. 


• XE M 

ASSIGNED ABSOLUTE 

ORIGIN 

20467. 

ADJUSTED 

LENGTH IS 

CC211. 

VIRTUAL 

SECT ION 

' SYSOU. • 

- 

REFERS 

TO 

DECK 

• IOS 


LOCATION 

17301. 


2 - 2-11 


DECK 


DECK 


DECK 


SPACE LIBRARY - 

VER. 2, 

MOC 

. 1 

IBLDR 

— JOB 

SPACE 

VIRTUAL 

SECTION 

• S.XDVD' 


REFERS TO 

DECK • I BNUC •* 

LOCATION 

00154. 

VIRTUAL 

SECTION 

• S.SDMP* 

- 

REFERS TO 

DECK • I BNUC •, 

LOCATION 

00137. 

VIRTUAL 

SECTION 

• S * X 0 V A * 

- 

REFERS TO 

DECK ' I BNUC •• 

LOCATION 

00151. 

VIRTUAL 

SECTION 

• S. JXIT* 

- 

REFERS TO 

DECK • PGSTX ■ , 

LOCATION 

17040. 

VIRTUAL 

SECTI ON 

* S.XOVA* 

- 

REFERS TO 

DECK • I BNUC •• 

LOCATION 

00153. 

REAL SECTION 

1 ERROU. ' 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20470. 


REAL SECTION 

• ERL OC • • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20472. 


REAL SECTION 

• FEXEM * 1 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20473. 


real section 

' MATOP. • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20674. 


REAL SECTION 

• SYSOP. ■ 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20675. 


REAL SFCTION 

• I OC E L * • 

- 

DELETED. 

REFERS TO DECK 

• IOS • 

* LOCATION 

• XI T • 

ASSIGNED ARSOLUTE 

ORIGIN 20700. ADJUSTED 

LENGTH IS 

CC0C2. 

VIRTUAL 

SECTION 

• S. JXIT* 

- 

REFERS TO 

DECK 'POSTX 

LOCATION 

17040. 

REAL SECTION 

•EXIT * 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20700. 


* RMP • 

ASSIGNED ARSOLUTE 

ORIGIN 20702. ADJUSTED 

LENGTH IS 

01670. 

VIRTUAL 

SECT I ON 

• SYSOU. • 

- 

REFERS TO 

DECK 'IOS % 

LOCATION 

17301. 

V IRTUAL 

SECTION 

•EXIT • 

- 

REFERS TO 

DECK ' X I T 

LOCATION 

20700. 

V IRTUAL 

SECTION 

• S. XOVA' 

- 

REFERS TO 

DECK • I BNUC 

LOCATION 

00151. 

VIRTUAL 

SECTION 

• S. SCOR* 

- 

REFERS TO 

DECK • I BNUC 

LOCATION 

00200. 

VIRTUAL 

SECTION 

* S. SLOC 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

12253. 


REAL SECTION 

' DUMP • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20710. 


REAL SECTION 

•PDUMP • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

20731. 


• R0H44 • 

ASSIGNED ARSOLUTE 

ORIGIN 22572. ADJUSTED 

LENGTH IS 

C 1440. 

V IRTUAL 

SECTION 

• F l LO 5 • • 

- 

REFERS TO 

DECK ■ F 0 5 •, 

LOCATION 

17152. 

VIRTUAL 

SECTION 

• F l L06 * • 

- 

REFERS TO 

DECK • F 06 •, 

LOCATION 

17153. 

VIRTUAL 

SECTION 

• F I L I 0 . • 

- 

REFERS TO 

DECK ' R WD •, 

LOCATION 

20141. 

VIRTUAL 

SECT I ON 

•HNL 10.' 

- 

REFERS TO 

DCCK • R WD •, 

LOCATION 

17573. 

V IRTUAL 

SECTION 

' I OH A C • 1 

- 

REFERS TO 

DECK ' AC V 

LOCATION 

20203. 

V IRTUAL 

SECT ION 

• IOHEF.' 

- 

REFERS TO 

DECK • R WO •, 

LOCATION 

17665. 

VIRTUAL 

SECTION 

' IOHI 0.* 

- 

REFERS TO 

DECK * R WD % 

LOCATION 

17702. 

V IRTUAL 

SECTION 

• I OHX C • • 

- 

REFERS TO 

DECK 'XCV % 

LOCATION 

20233. 

VIRTUAL 

SECTION 

• RTNl 0. • 

- 

REFERS TO 

DECK • R WD •, 

LOCATION 

20144. 

V IRTUAL 

SECTION 

• SETFP.' 

- 

REFERS TO 

DECK * F P T •, 

LOCATION 

20251- 

VIRTUAL 

SECTION 

' S TH I 0 . • 

- 

REFERS TO 

DECK • R WD S 

LOCATION 

17472. 

V IRTUAL 

SECTION 

• T S H I 0 . • 

- 

REFERS TO 

DECK ' R WD •, 

LOCATION 

17452. 

V IRTUAL 

SECTION 

• S. SLOC' 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

12253. 


V IRTUAL 

SECTION 

• S. JXIT* 

- 

REFERS TO 

DECK ’POSTX •, 

LOCATION 

17040. 

VIRTUAL 

SECTION 

• S . SCCR • 

- 

REFERS TO 

DECK • I BNUC •, 

LOCATION 

C 01 4 3 • 

REAL SFCTION 

•READH • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

22572. 


REAL SFCTION 

' READHR' 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

22601. 


real SECTION 

• RE ADHP • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

22606. 


REAL SECTION 

' OC D • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

22760. 


REAL SECTION 

•RCDT • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

22767. 


REAL SECTION 

•BCDP • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

22775. 


REAL SECTION 

•SCAN • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

23100. 


RFAL SECTION 

• RCHR EG • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

24214. 



1 7430. 


2 - 2-12 


SPACE LIBRARY 


VER 


2, MOD . 1 


IBLDR 


JOB SPACE 


MEMORY MAP 
FOR MAIN LINK 


SYSTEM, INCLUDING IOCS 
FILE BLOCK ORIGIN 

NUMBER OF FILES - 3 

1. S.F8IN 

2. S.FBCU 

3. S.FBPP 

OBJECT PROGRAM 


1 . 

DECK 

• SPC 1 

2 . 

DECK 

• OSSCAN* 

3 . 

SURR 

• I NSYFB* 

4 . 

SU.RR 

• OUSYFB' 

5 . 

SUBR 

• POSTX • 

6 • 

SURR 

• P P S Y F B • 

7 . 

SURR 

• FO 5 

8 . 

SUBR 

• FO 6 • 

9 . 

SUBR 

• IOS • 

10. 

SUBR 

• RWC 1 

11 . 

SUBR 

• AC V • 

12 . 

SURR 

• XCV * 

13. 

SUBR 

• FPT « 

14. 

SURR 

• XEM 1 

15. 

SUBR 

• XI T • 

16. 

SURR 

• DMP • 

17. 

SUBR 

• RDH44 1 


I* - INSERTIONS OR DELETIONS 
INPUT - OUTPUT BUFFERS 


OOOOO THRU 
12261 


12261 
1 2304 
12327 

12352 THRU 

12352 

17001 

OOOOO 

OOOOO 

17040 

OOOOO 

17152 

17153 

17154 
17452 
20203 
20233 
20251 
20467 
20700 
20702 
22572 

MADE IN THIS DECK) 

76157 THRU 


12252 


24231 


77776 


UNUSED CORE 


24232 THRU 76147 



SPACE 


DECK 


SPACE LIBRARY - VER • 


MOO. 


IBIOR -- JOB 




LOG 

I 

C M A 

P 






FOR DECKS OF LI 

NK NUMBER 


1,( 131 


) 





REAL SECTION 

• S • SLOC • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

12253. 


• 13 l • 

ASSIGNED ABSOLUTE 

ORIGIN 

24232. 

ADJUSTED 

LENGTH IS 

37553. 

VIRTUAL 

SECTION 

1 ABOUT1* 

- 

REFERS 

TO 

DECK 

•SPC 

■» 

LOCATION 

14252. 

VIRTUAL 

SECTION 

• ABUUT2* 

- 

REFERS 

TO 

DECK 

•SPC 

% 

LOCATION 

14256. 

VIRTUAL 

SECTION 

• ENOF • 

- 

REFERS 

TO 

DECK 

•SPC 

s 

LOCATION 

14272. 

VIRTUAL 

SECTION 

« RE ADB1 1 

- 

REFERS 

TO 

DECK 

•SPC 

•t 

LOCATION 

14242. 

VIRTUAL 

SECTION 

* RE ADB2 • 

- 

REFERS 

TO 

OECK 

•SPC 


LOCATION 

14246. 

VIRTUAL 

SECTION 

•SKIPR ■ 

- 

REFERS 

TO 

DECK 

•SPC 

N 

LOCATION 

14262. 

VIRTUAL 

SECTION 

•OEDIT • 

- 

REFERS 

TO 

DECK 

•SPC 

S 

LOCATION 

15344. 

VIRTUAL 

SECTION 

•SPACE • 

- 

REFERS 

TO 

DECK 

•SPC 

•t 

LOCATION 

13533. 

VIRTUAL 

SECTION 

• S • SO AT • 

- 

REFERS 

TO 

DECK 

•IBNUC 

*. 

LOCATION 

00213. 

VIRTUAL 

SECTION 

• S.XDVA' 

- 

REFERS 

TO 

DECK 

•I0NUC 

% 

LOCATION 

00153. 

REAL SECTION 

•ACCESS 1 

- 

DELETED. 

REFERS TO OECK 

•SPC •, 

LOCATION 


16617. 


2 - 2-14 



SPACE LIBRARY - VER. 2, MOD • l IBLOR — JOB SPACE 


MEMORY MAP 

OF LINK NUMBER 1 * { 131 ) 

ORIGIN OF THIS LINK AT DECK • i 3 1 


SYSTEM, INCLUDING IOCS OOOCO THRU 12252 

NUMBER OF FILES - NONE 

OBJECT PROGRAM 12352 THRU 6ACCA 

12352 
17001 
00000 
00000 

170 AO 
00000 

17152 

17153 

1 71 5 A 
17A52 
20203 
20233 
20251 
20A67 
20700 
20702 
22572 
2A232 

(* - INSERTIONS OR DELETIONS MADE IN THIS DECK I 
INPUT - OUTPUT BUFFERS 76157 THRU 77776 

UNUSED CORE 6A005 THRU 761A7 


1. DECK 

2. DECK 

3. SUBR 
A. SUBR 

5. SUBR 

6. SUBR 

7. SUBR 

8. SUBR 
9 . SUBR 

10. SUBR 

11. SUBR 

12. SUBR 

13. SURR 
1 A * SUBR 

15. SUBR 

16. SUBR 

17. SUBR 

18. DECK 


SPC * 
DSSCAN 1 
INSYFB* 
OIJSYFB* 
POSTX * 
PPSYFB* 

F05 * 

F06 » 

I OS « 

RWC ' 

AC V * 

XCV * 

FPT « 

XEM • • 

X I T • 

DMP * 
RDHAA • 

131 • * 


2 - 2-15 



SPACE LIBRARY 

- VER. 2, MOD. 1 

IBLDR — JOB 

SPACE 


LOGIC MAP 



FOR DECKS OF 

LINK NUMBER 2» ( 121 ) 




REAL SECTION 'S.SLOC* - ASSIGNED ABSOLUTE ORIGIN 12253. 


DECK 

• 121 ' 

ASSIGNED ABSOLUTE 

OR I GIN 

24232. 

ADJUSTED 

LENGTH IS 

34271. 



V IRTUAL 

SECTION 

• BCD * 

- 

REFERS 

TO 

DECK 

•RCH44 *, 

LOCATION 

22760. 



VIRTUAL 

SECTION 

•STOR • 

- 

REFERS 

TO 

DECK 

•STOR •, 

LOCATION 

60531. 



VIRTUAL 

SECTION 

• ATHRUi 1 

- 

REFERS 

TO 

DECK 

•ATHRUZ* , 

LOCATION 

61265. 



VIRTUAL 

SECTION 

• FIL03. • 

- 

REFERS 

TO 

DECK 

•FTC03 

LOCATION 

60576. 



VIRTUAL 

SECTION 

•UNSIFT* 

- 

REFERS 

TO 

DECK 

•UNSIFT* , 

LOCATION 

6C561. 



VIRTUAL 

SECTION 

• DSSCAN* 

- 

REFERS 

TO 

DECK 

•DSSCAN* , 

LOCATION 

17007. 



VIRTUAL 

SECTION 

•SPACE ' 

- 

REFERS 

TO 

DECK 

• SPC •, 

LOCATION 

13533. 



virtual 

SECTION 

• A B OUT 1 • 

- 

REFERS 

TO 

DECK 

'SPC *, 

LOCATION 

14252. 



VIRTUAL 

SECTION 

• ABOUT2* 

- 

REFERS 

TO 

DECK 

•SPC 

LOCATION 

14256. 



VIRTUAL 

SECTI ON 

•BOOL • 

- 

REFERS 

TO 

DECK 

•ROOL *, 

LOCATION 

61307. 



VIRTUAL 

SECTION 

• SK I PR • 

- 

REFERS 

TO 

DECK 

•SPC •, 

LOCATION 

14262. 



VIRTUAL 

SECTION 

' F l L06 . • 

- 

REFERS 

TO 

DECK 

* F 06 », 

LOCATION 

17153. 



VIRTUAL 

SECTION 

1 REAC81 • 

- 

REFERS 

TO 

OECK 

•SPC •, 

LOCATION 

14242. 



VIRTUAL 

SECTION 

' ENDF • 

- 

REFERS 

TO 

OECK 

•SPC *, 

LOCATION 

14272. 



VIRTUAL 

SECTION 

' RE ADB2 * 

- 

REFERS 

TO 

DECK 

•SPC •, 

LOCATION 

14246. 



VIRTUAL 

SECTION 

•HOLOCT* 

- 

REFERS 

TO 

DECK 

'HLCT •, 

LOCATION 

61330. 



VIRTUAL 

SECTION 

• HNL I C . • 

- 

REFERS 

TO 

DECK 

•RWD *, 

LOCATION 

17573. 



VIRTUAL 

SECTION 

• F I L I G . • 

- 

REFERS 

TO 

DECK 

• R WO •, 

LOCATION 

20141. 



VIRTUAL 

SECTION 

* S TH I 0 . • 

- 

REFERS 

TO 

DECK 

•RWD •, 

LOCATION 

17472. 



VIRTUAL 

SECTION 

• I OHE F . • 

- 

REFERS 

TO 

DECK 

•RWD •, 

LOCATION 

17665. 



VIRTUAL 

SECTION 

• t OH IO.* 

- 

REFERS 

TO 

DECK 

•RWD *, 

LOCATION 

17702. 



VIRTUAL 

SECTION 

• I OHH C • • 

- 

REFERS 

TO 

DECK 

•HCV •, 

LOCATION 

6C577. 



V IRTUAL 

SECTION 

• I OHX C • * 

- 

REFERS 

TO 

DECK 

•XCV 

LOCATION 

20233. 



VIRTUAL 

SECTION 

• I OH AC • ' 

- 

REFERS 

TO 

DECK 

• AC V *, 

LOCATION 

20203. 



V IRTUAL 

SECTION 

• I CHIC.* 

- 

REFERS 

TO 

DECK 

•ICV 

LOCATION 

6C716. 



VIRTUAL 

SECTION 

• l OH R P . • 

- 

REFERS 

TO 

DECK 

•RWD *» 

LOCATION 

17646. 



VIRTUAL 

SECTI ON 

• l OHL P. • 

-• 

REFERS 

TO 

DECK 

•RWD •, 

LOCATION 

17625. 



V IRTUAL 

SECTION 

• ERR OU . • 

- 

REFERS 

TO 

DtCK 

* X En * ? 

LOCATION 

20470. 



VIRTUAL 

SECTION 

' S. JXIT* 

- 

REFERS 

TO 

DECK 

•ROSTX % 

LOCATION 

17040. 



VIRTUAL 

SECTION 

• SETFP . • 

- 

REFERS 

TO 

DECK 

•FPT S 

LOCATION 

20251. 



REAL SECTION 

• ACCESS* 

- 

DELETED. 

REFERS TO DECK 

•SPC • , 

LOCATION 

16617 

OECK 

•sroR • 

ASSIGNED ABSOLUTE 

ORIGIN 

60523. 

ADJUSTED 

LENGTH IS 

C0030. 



VIRTUAL 

SECTION 

• S.SLOC* 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

12253. 




REAL SECTION 

•STOR • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

60531. 



DECK 

• UNSI FT* 

ASSIGNED ABSOLUTE 

OR 1 G I N 

60553. 

ADJUSTED 

LENGTH IS 

CCC23. 



VIRTUAL 

SECTION 

• S.SLOC* 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

12253. 




REAL SECTION 

•UNSIFT* 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

60561. 



DECK 

• FTC03 • 

ASSIGNEO ABSOLUTE 

ORIGIN 

60576. 

AO JU ST EO 

LENGTH IS 

CC001. 



VIRTUAL 

SECTION 

• S.FBCU* 

- 

REFERS 

TO 

DECK 

•OUSYFB* , 

LOCATION 

12304. 



REAL SECTION 

• FIL03.' 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

60576. 



DEC 

• HCV • 

ASSIGNED ABSOLUTE 

ORIGIN 

60577. 

ADJUSTED 

LENGTH IS 

CC117. 



virtual 

SECTION 

• I OCEL • * 

- 

REFERS 

TO 

DECK 

•IOS •• 

LOCATION 

17430. 



VIRTUAL 

SECTION 

• CVC EL . * 

- 

REFERS 

TO 

DECK 

•RWD •, 

LOCATION 

20165. 



VIRTUAL 

SECTION 

•BUI. • 

- 

REFERS 

TO 

DECK 

•RWD •# 

LOCATION 

20037. 
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DECK 
DE r '' 


DECK 

DECK 

DECK 


SPACE LIBRARY - 

VCR. 2, MOC 

. 1 



IBLOR 

— JOB 

SPACE 

V IRTUAL 

SECTION 

• BU2 2 . ' - 

REFERS 

TO 

DECK 

• RWD 

•• 

LOCATION 

20053. 

VIRTUAL 

SECTION 

•SC. • - 

REFERS 

TO 

DECK 

•RWD 

s 

LOCATION 

20021. 

V IRTUAL 

SECTION 

• GETCE . ' - 

REFERS 

TO 

DECK 

•RWD 

•f 

LOCATION 

2 Cl 5 1 . 

REAL SECTION 

• I OHHC . * - 

ASSIGNEO 

ABSOLUTE ORIGIN 

60577. 


• ICV * 

ASSIGNED ABSOLUTE 

OR £ G I N 

60716. 

ADJUSTED 

LENGTH IS 

00020. 

VIRTUAL 

SECTION 

•cco. • - 

REFERS 

TO 

OECK 

•RWD 

** 

LOCATION 

20031. 

VIRTUAL 

SECTION 

•sc. • - 

REFERS 

TO 

OECK 

•RWD 

•t 

LOCATION 

20021. 

VIRTUAL 

SECTION 

•AST. • - 

REFERS 

TO 

DECK 

• INTJ 


LOCATION 

61106. 

V IRTUAL 

SECT ION 

• I C2 • • - 

REFERS 

TO 

DECK 

• INTJ 


LOCATION 

61057. 

VIRTUAL 

SECTION 

• IC10. • - 

REFERS 

TO 

DECK 

• INTJ 

•t 

LOCAT ION 

61073. 

VIRTUAL 

SECTION 

• I OC E L • * - 

REFERS 

TO 

OECK 

•IQS 

« t 

LOCATION 

17430. 

VIRTUAL 

SECTION 

• I OHCM. • - 

REFERS 

TO 

OECK 

• R WO 

• » 

LOCATION 

17537. 

V IRTUAL 

SECTION 

• I OHC T • • - 

REFERS 

TO 

OECK 

• R WO 

• t 

LOCATION 

17615. 

V IRTUAL 

SECTION 

• l 0HDP. • - 

REFERS 

TO 

DECK 

• INTJ 

• f 

LOCATION 

61126. 

REAL SECTION 

• l OH I C • * ~ 

ASSIGNED 

ABSOLUTE ORIGIN 

60716. 


REAL SECTION 

•I OH IT.* - 

ASSIGNEO 

ABSOLUTE ORIGIN 

60722. 


• I NT J • 

ASSIGNS 

0 ABSOLUTE 

ORIGIN 

60736. 

ADJUSTED 

LENGTH IS 

00321. 

V IRTUAL 

SECT I ON 

• C VC E L • 1 - 

REFERS 

TO 

DECK 

•RWD 

I 

LOCATION 

20165. 

V IRTUAL 

SECT ION 

•BUI. * - 

REFERS 

TO 

DECK 

•RWD 

» 

LOCATION 

20037. 

V IRTUAL 

SECTION 

•BU4. • - 

REFERS 

TO 

OECK 

•RWD 

1 

LOCATION 

20044. 

V IRTUAL 

SECTION 

•ecu. • - 

REFERS 

TO 

OECK 

•RWD 

• 

LOCATION 

20031. 

V IRTUAL 

SECTION 

• DE60 . • - 

REFERS 

TO 

OECK 

•RWD 

1 

LOCATION 

20077. 

V IRTUAL 

SECTION 

• DE70 • * - 

REFERS 

TO 

OECK 

•RWD 

1 

LOCATION 

20100. 

VIRTUAL 

SECTION 

*xc. • - 

REFERS 

TO 

DECK 

•RWD 

* 

LOCATION 

20110. 

V IRTUAL 

SECTION 

• F6 X E M . • - 

REFERS 

TO 

OECK 

•XEM 

* 

LOCATION 

20473. 

V I R TUA L 

SECTI ON 

• I OC E L . 1 - 

REFERS 

TO 

OECK 

• IOS 

t 

LOCATION 

17430. 

V IRTUAL 

SECTION 

1 G C T C F . ' - 

REFERS 

TO 

OECK 

•RWD 

• 

LOCATION 

20151. 


REAL SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 
R T AL SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 
REAL SECTION 

•ATHRUZ* ASSIGNED 
VIRTUAL SECTION 
R CAL SECTION 

' n OOL • ASSIGNED 
VIRTUAL SECTION 
REAL SECTION 


J. • - ASSIGNEO ABSOLUTE ORIGIN 60747. 

IC2. • - ASSIGNED ABSOLUTE ORIGIN 61057. 

I C 1 0 . ' - ASSIGNED ABSOLUTE ORIGIN 61073. 

AST. • - ASSIGNED ABSOLUTE ORIGIN 61106. 

ASTI. • - ASSIGNED ABSOLUTE ORIGIN 61107. 

DE 30 . • - ASSIGNED ABSOLUTE ORIGIN 61113. 

I OHDB . * - ASSIGNED ABSOLUTE ORIGIN 61126. 

DBC1. • - ASSIGNEO ABSOLUTE ORIGIN 61140. 

DRC5. • - ASSIGNEO ABSOLUTE ORIGIN 61160. 

ANACH.' - ASSIGNED ABSOLUTE ORIGIN 61207. 

SGI. • - ASSIGNEO ABSOLUTE ORIGIN 61226. 

OECEL.' - ASSIGNED ABSOLUTE ORIGIN 61250. 

ARSOLUTE ORIGIN 61257. AOJUSTED LENGTH IS CC022. 
S.SLCC* - ASSIGNEO ABSOLUTE ORIGIN 12253. 

ATHRUZ* - ASSIGNED ARSOLUTE ORIGIN 61265. 

ABSOLUTE ORIGIN 61301. ADJUSTED LENGTH IS CC021. 
S.SLOC* - ASSIGNED ABSOLUTE ORIGIN 12253. 

BOOL • - ASSIGNED ABSOLUTE ORIGIN 61307. 


•HLCT • ASSIGNED ABSOLUTE ORIGIN 61322. AOJUSTED LENGTH IS CC047. 
VIRTUAL SECTION •S.SLOC* - ASSIGNED ABSOLUTE ORIGIN 12253. 

REAL SECTION 'HOLOCT* - ASSIGNED ABSOLUTE ORIGIN 61330. 




SPACE LIBRARY - VER. 2 t MOD. 1 


IBLDR — JOB 


MEMORY 


MAP 


OF LINK NUMBER 2, t 121 ) 

ORIGIN OF THIS LINK AT DECK '121 


SYSTEM, INCLUDING IOCS 

NUMBER OF FILES - NONE 
OBJECT PROGRAM 


l . 

DECK 

• SPC ' 

12352 

2 . 

DECK 

• DSSCAN* 

17001 

3. 

SUBR 

• INSYFB' 

OOOOO 

4. 

SUB R 

• OUSYFB' 

OOOOO 

5 . 

SUBR 

•POSTX ' 

17040 

6. 

SUBR 

• PPSYFB' 

OOOOO 

7. 

SUBR 

• F05 ' 

17152 

8 . 

SUBR 

* F 06 ' 

17153 

9. 

SUBR 

• IOS 

17154 

10. 

SUBR 

• RWD • 

17452 

11 . 

SUBR 

* AC V ' 

20203 

12 . 

SUBR 

• xcv 

20233 

13. 

SUBR 

• FPT ' 

20251 

14 . 

SUBR 

•XEM ' • 

20467 

15. 

SUBR 

* XI T ■ 

20700 

16. 

SUBR 

• DMP ' 

20702 

17. 

SUBR 

* RDH44 ' 

22572 

IB. 

DECK 

# 12 I • • 

24232 

19. 

DECK 

•STOR • 

60523 

20. 

DECK 

•UNSIFT* 

60553 

21 * 

DFCK 

•FTC03 ' 

60576 

22 . 

SUBR 

• HC V » 

60577 

23 . 

SUBR 

• ICV * 

60716 

24 . 

SUBR 

• I NT J • 

60736 

25. 

SUBR 

' ATHRUZ* 

61257 

26. 

SUBR 

* B 0 CL * 

61301 

27. 

SUBR 

•HLCT • 

61322 

• - 

INSER 

TIONS OR DELETIONS 

MADE IN TH 


INPUT - OUTPUT BUFFERS 
UNUSED CORE 


OOOOO THRU 


12352 THRU 


76157 THRU 
61371 THRU 


SPACE 

12252 

61370 


77776 

76147 


2 - 2-18 


SPACE LIBRARY 


VCR. 2, MOD. 1 


I0LDR 


JOB SPACE 


DECK 


LOGIC MAP 

FOR OECKS OF LINK NUMBER 3,1 611 ) 


REAL SECTION 'S.SLCC' - ASSIGNED ABSOLUTE ORIGIN 12253. 


•611 • 

ASSIGNED ABSOLUTE 

ORIGIN 

24232. 

ADJUSTED LENGTH IS 

22275. 

V IRTUAL 

SECTION 

• BCD • 

- 

REFERS 

TO 

DECK 

•RCH44 

' t 

LOCATION 

22760. 

VIRTUAL 

SECTION 

• DELETE 1 

- 

REFERS 

TO 

DECK 

'DELETE 

* t 

LOCATION 

47243. 

V IRTUAL 

SECTION 

• SORTCl' 

- 

REFERS 

TO 

DECK 

•SORTCl 

1 1 

LOCATION 

46535. 

V IRTUAL 

SECT I ON 

' ATHRUZ’ 

- 

REFERS 

TO 

DECK 

•ATHRUZ 

* t 

LOCATION 

51327. 

VIRTUAL 

SECT ION 

' EILEN0' 

- 

REFERS 

TO 

DECK 

•F ILENO 

* f 

LOCATION 

47015. 

VIRTUAL 

SECT I ON 

' OSSCAN' 

- 

REFERS 

TO 

DECK 

' D S SC AN 

' » 

LOCATION 

17007. 

V IRTUAL 

SECT I ON 

• A L L I Nl ' 

- 

REFERS 

TO 

DECK 

' ALL INI 

' » 

LOCATION 

46704. 

VIRTUAL 

SECTION 

•CNVRT ' 

- 

REFERS 

TO 

DECK 

•CNVRT 

' 1 

LOCATION 

47064. 

V IRTUAL 

SECT I ON 

•SPACE ' 

- 

REFERS 

TO 

DECK 

•SPC 

’ t 

LOCATION 

13533. 

V IRTUAL 

SECTION 

* A ROUT l • 

- 

REFERS 

TO 

DECK 

' SPC 

* » 

LOCATION 

14252. 

V IRTUAL 

SECT I ON 

' APOUT2 • 

- 

REFERS 

TO 

DECK 

•SPC 

* 1 

LOCATION 

14256. 

V IRTUAL 

SECT I ON 

•BOOL ' 

- 

REFERS 

TO 

DECK 

•BOOL 

' 1 

LOCATION 

51351. 

V IRTUAL 

SECTION 

• EXP ' 

- 

REFERS 

TO 

DECK 

1 X PN 

' I 

LOCATION 

51072. 

V IRTUAL 

SECTION 

' GSMRGE' 

- 

REFERS 

TO 

DECK 

•GSMRGE 

* » 

LOCATION 

47332. 

V IRTUAL 

SECT I ON 

•SKI PR • 

- 

REFERS 

TO 

DECK 

•SPC 

* 1 

LOCATION 

14262. 

V IRTUAL 

SECT I ON 

1 E I L06 . 1 

- 

REFERS 

TO 

DECK 

* F 06 

* 1 

LOCATION 

17153. 

VIRTUAL 

SECTION 

• RE AOB1 • 

- 

REFERS 

TO 

DECK 

•SPC 

' f 

LOCATION 

14242. 

VIRTUAL 

SECTION 

' ENOF ' 

- 

REFERS 

TO 

DECK 

•SPC 

* 1 

LOCATION 

14272. 

V IRTUAL 

SECT I ON 

' R E A D 6 2 • 

- 

REFERS 

TO 

DECK 

•SPC 

* t 

LOCATION 

14246. 

V IRTUAL 

SECTION 

' C OMP AR' 

- 

REFERS 

TO 

DECK 

•COMPAR 


LOCATION 

46626. 

V IRTUAL 

SECTION 

•HdLCCT' 

- 

REFERS 

TO 

DECK 

•hlct 

* t 

LOCATION 

51372. 

V IRTUAL 

SECTION 

' • E X P2 . 1 

- 

REFERS 

TO 

DECK 

• X P 2 

* f 

LOCATION 

50735. 

V IRTUAL 

SECT I ON 

' • C X p 3 . • 

- 

REFERS 

TO 

DECK 

1 X P 3 

* f 

LOCATION 

51020. 

V IRTUAL 

SECT I ON 

• HNL 10.' 

- 

REFERS 

TO 

DECK 

•RWD 

* t 

LOCATION 

17573. 

V IRTUAL 

SECTION 

* F I LI 0. ' 

- 

REFERS 

TO 

DECK 

'RWD 

' » 

LOCATION 

20141. 

V IRTUAL 

SECT I ON 

1 SLOl C. ' 

- 

REFERS 

TO 

DECK 

•SLO 

' t 

LOCATION 

50703. 

V IRTUAL 

SECT I ON 

• S T H I 0 . • 

- 

REFERS 

TO 

DECK 

•RWD 

' f 

LOCATION 

17472. 

V IRTUAL 

SECT I ON 

• I OHEF • ' 

- 

REFERS 

TO 

DECK 

'RWD 

* 1 

LOCATION 

17665. 

VIRTUAL 

SECT ION 

* I OH I C. 1 

- 

REFERS 

TO 

DECK 

•RWD 

' » 

LOCATION 

17702. 

VIRTUAL 

SECT I ON 

' I OH H C . ' 

- 

refers 

TO 

DECK 

•HCV 

' t 

LOCATION 

47636. 

V IRTUAL 

SECT I ON 

• I OH X C • ' 

- 

REFERS 

TO 

DECK 

•xcv 

' » 

LOCATION 

20233. 

V IRTUAL 

SECT I ON 

* I OH AC. 1 

- 

REFERS 

TO 

DECK 

• ACV 

* f 

LOCATION 

20203. 

V IRTUAL 

SECT ION 

M OHIC. • 

- 

REFERS 

TO 

DECK 

• ICV 

' f 

LOCATION 

47755. 

V IRTUAL 

SECT I ON 

• I OH F C • ' 

- 

REFERS 

TO 

DECK 

• FC V 

' 1 

LOCATION 

47545. 

V IRTUAL 

SECT I ON 

• I OHEC. ' 

- 

REFERS 

TO 

DECK 

• EC V 

* » 

LOCATION 

47344. 

V IRTUAL 

SECT ION 

• I OH S F « • 

- 

REFERS 

TO 

DECK 

•RWD 

' t 

LOCATION 

1 76 77. 

VIRTUAL 

SECTION 

• I CHRP. ' 

- 

REFERS 

TO 

DECK 

•RWD 

' » 

LOCATION 

17646. 

VIRTUAL 

SECT l ON 

• I OHLP . • 

- 

REFERS 

TO 

DECK 

•RWD 

* * 

LOCATION 

17625. 

V IRTUAL 

SECT I ON 

• ERROU. ' 

- 

REFERS 

TO 

DECK 

• X EM 

* t 

LOCATION 

20470. 

VIRTUAL 

SECT I ON 

• S. JXIT' 

- 

REFERS 

TO 

DECK 

•POSTX 

* • 

LOCATION 

17040. 

VIRTUAL 

SECTION 

• SETFP. « 

- 

REFERS 

TO 

DECK 

•FPT 

* t 

LOCATION 

20251. 

REAL SECTION 

• ACCESS' 

- 

DELETED. 

REFERS TO DECK 

•SPC • 

, LOCATION 

REAL SECTION 

' ARRAYS' 

- 

ASSIGNED 

ARSOLUTE ORIGIN 

35013. 


REAL SECTION 

' CONSNT' 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

46476. 


• SORTCl 

• ASSIGNED ABSOLUTE 

ORIGIN 

46527. 

ADJUSTED 

LENGTH IS 

00071. 

VIRTUAL 

SECT I ON 

• S.SLOC* 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

12253. 


REAL SECTION 

1 SORTCl ' 

- 

ASSIGNEO 

ABSOLUTE ORIGIN 

46535. 



16617. 
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DECK 'COMPAR' ASSIGNED ABSOLUTE ORIGIN 46620. ADJUSTED LENGTH IS 0C056. 
VIRTUAL SECTION 'S.SLOC* - ASSIGNED ABSOLUTE ORIGIN 12253. 

REAL SECTION 'COMPAR* - ASSIGNED ABSOLUTE ORIGIN 46626. 

DECK • ALL I N1 ' ASSIGNED ABSOLUTE ORIGIN 46676. ADJUSTED LENGTH IS COlll. 
VIRTUAL SECTION 'S.SLOC' - ASSIGNED ABSOLUTE ORIGIN 12253. 

REAL SECTION • ALL I N 1 • - ASSICNED ABSOLUTE ORIGIN 46704. 

DECK •FILENO* ASSIGNED ABSOLUTE ORIGIN 47007. ADJUSTED LENGTH IS 00047. 
VIRTUAL SECTION 'S.SLOC* - ASSIGNED ABSOLUTE ORIGIN 12253. 

REAL SECTION • F I L ENO* - ASSIGNED ABSOLUTE ORIGIN 47015. 

DECK • CNVR T ' ASSIGNED ABSOLUTE ORIGIN 47056. ADJUSTED LENGTH IS C0157. 
VIRTUAL SECTION 'S.SLOC* - ASSIGNED ABSOLUTE ORIGIN 12253. 

REAL SECTION 'CNVRT • - ASSIGNED ABSOLUTE ORIGIN 47064. 

DECK 'DELETE' ASSIGNED ABSOLUTE ORIGIN 47235. ADJUSTED LENGTH IS G0067. 
VIRTUAL SECTION 'S.SLCC* - ASSIGNED ABSOLUTE ORIGIN 12253. 

REAL SECTION 'DELETE' - ASSIGNED ABSOLUTE ORIGIN 47243. 

DfccK • GSMRGE • ASSIGNEO ABSOLUTE ORIGIN 47324. ADJUSTED LENGTH IS C0C20. 
VIRTUAL SECTION 'S.SLOC' - ASSIGNED ABSOLUTE ORIGIN 12253. 

REAL SECTION 'GSMRGE' - ASSIGNED ABSOLUTE ORIGIN 47332. 

DECK • ECV • ASSIGNED ABSOLUTE ORIGIN 47344. ADJUSTED LENGTH IS CG201. 


V IRTUAL 

SECTION 

•AST, • 

- 

REFERS 

TO 

OECK 

• I NT J 

% LOCATION 

50145. 

VIRTUAL 

SECTION 

• DE 30 . ' 

- 

REFERS 

TO 

DECK 

• INTJ 

•♦ LOCATION 

50152. 

VIRTUAL 

SECTION 

• IC 10- ' 

- 

REFERS 

TO 

DECK 

• INTJ 

• f LOCATION 

50132. 

VIRTUAL 

SECTION 

• J. • 

- 

REFERS 

TO 

DECK 

1 INTJ 

•, LOCATION 

50006. 

V IRTUAL 

SECTION 

1 BU4. 1 

- 

REFERS 

TO 

DECK 

•RWD 

•, LOCATION 

20044. 

VIRTUAL 

SECTION 

•RU 22. • 

- 

REFERS 

TO 

DECK 

•RWD 

•, LOCATION 

2C053. 

V IRTUAL 

SECT I ON 

• CCQ. * 

- 

REFERS 

TO 

DECK 

•RWD 

•, LOCATION 

20031. 

ViRTUAL 

SECT ! ON 

• DE 60 . • 

- 

REFERS 

TO 

DECK 

•RWD 

LOCATION 

20077. 

VIRTUAL 

SECTION 

• DE 7 0 • • 

- 

REFERS 

T 0 

DECK 

•RWD 

•, LOCATION 

2 01 CO • 

VIRTUAL 

section 

• SC. • 

- 

REFERS 

TO 

DECK 

•RWD 

LOCATiGN 

20021. 

VIRTUAL 

SECTION 

' xc. • 

- 

REFERS 

TO 

DECK 

•RWD 

• t LOCATION 

20110. 

VIRTUAL 

SECTION 

' FFCiO. # 

- 

REFERS 

TO 

DECK 

•FFC 

•t LOCATION 

50316. 

VIRTUAL 

SECTION 

• FFC 1 2 • * 

- 

REFERS 

TO 

DECK 

•FFC 

S LOCATION 

503 2 5 . 

VIRTUAL 

SECTION 

• FFC24 . • 

- 

REFERS 

TO 

DECK 

•FFC 

•, LOCATION 

50346. 

VIRTUAL 

SECTION 

• FL T S W . • 

- 

REFERS 

TO 

DECK 

•FFC 

•, LOCATION 

5C512. 

VIRTUAL 

SECTION 

• FFC 30 . • 

- 

REFERS 

TO 

DECK 

•FFC 

•, LOCATION 

50466. 

VIRTUAL 

SECTION 

•DEM. 1 

- 

REFERS 

TO 

DECK 

•FFC 

• f LOCATION 

5C471. 

VIRTUAL 

SECTION 

' DE44. • 

- 

REFERS 

TO 

DECK 

•FFC 

•, LOCATION 

5 0500 • 

VIRTUAL 

SECTION 

1 C V C E L . • 

- 

REFERS 

TO 

DECK 

•RWD 

• f LOCATION 

20165. 

VIRTUAL 

SECTION 

• I OC E L • * 

- 

REFERS 

TO 

DECK 

• IOS 

•, LOCATION 

17430. 

VIRTUAL 

SECTION 

' I OHCN • • 

- 

REFERS 

TO 

DECK 

•RWD 

•, LOCATION 

17537. 

VIRTUAL 

SECTION 

• DECE L . • 

- 

REFERS 

TO 

DECK 

* INTJ 

• t LOCATION 

50307. 


REAL SECTION • I OHEf . ’ - ASSIGNED ABSOLUTE ORIGIN 47344. 

REAL SECTION 'IOHET.' - ASSIGNED ABSOLUTE ORIGIN 47350. 

REAL SECTION 'UC1. • - ASSIGNED ABSOLUTE ORIGIN 47355. 

REAL SECTION 'DE. • - ASSIGNED ABSOLUTE ORIGIN 47373. 

REAL SECTION • FFC9. • - ASSIGNED ABSOLUTE ORIGIN 47476. 

REAL SECTION • FFC2 1 . • - ASSIGNED ABSOLUTE ORIGIN 47544. 

OECK 'ECV • ASSIGNED ABSOLUTE ORIGIN 47545. AOJUSTEO LENGTH IS CC071. 
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DECK 
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V IRTUAL 

SECT I ON 

• FLTSW. • 

- 

REFERS 

TO 

DECK 

•FFC 

• t 

LOCATION 

50512. 

V IRTUAL 

SECTION 

• B U 2 2 . • 

- 

REFERS 

TO 

DECK 

•RWD 

f » 

LOCATION 

20053. 

VIRTUAL 

SECTION 

•cco. • 

- 

REFERS 

TO 

DECK 

•RWD 

f , 

LOCATION 

20031. 

VIRTUAL 

SECT I ON 

• sc. 

- 

REFERS 

TO 

DECK 

•RWD 

'» 

LOCATION 

20021. 

VIRTUAL 

SECTION 

• xc. • 

- 

REFERS 

TO 

DECK 

•RWD 


LOCATION 

20110. 

V IRTUAL 

SECTION 

•ASTI. • 

- 

REFERS 

TO 

DECK 

• INTJ 


LOCATION 

50146. 

V IRTUAL 

SECTION 

•DEM. ' 

- 

REFERS 

TO 

DECK 

•FFC 

% 

LOCATION 

5C471 . 

VIRTUAL 

SECTION 

• DEM . ' 

- 

REFERS 

TO 

DECK 

•FFC 


LOCATION 

50500. 

VIRTUAL 

SECTION 

• FECIO. • 

- 

REFERS 

TO 

DECK 

•FFC 

1 , 

LOCATION 

50316. 

VIRTUAL 

SECTION 

• FFC24 • 1 

- 

REFERS 

TO 

DECK 

•FFC 

1 t 

LOCATION 

50346. 

VIRTUAL 

SECT I ON 

' I CHCM. » 

- 

REFERS 

TO 

DECK 

•RWD 


LOCATION 

17537. 

V IRTUAL 

SECTION 

• I OC E L . • 

- 

REFERS 

TO 

DECK 

• I OS 

S 

LOCATION 

17430. 

VIRTUAL 

SECTION 

• CVCEL. • 

- 

REFERS 

TO 

DECK 

•RWD 

• . 

LOCATION 

20165. 

V IRTUAL 

SECTION 

• DECEL.* 

- 

REFERS 

TO 

DECK 

• INTJ 

•» 

LOCATION 

50 307 . 

REAL SECTION 

• I OH F C . ' 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

A 7 54 5 . 


REAL SECTION 

• I OHF T . • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

47546. 


RFAL SECTION 

• FG. • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

47630. 



•HCV ' ASSIGNED ARSOLUTE ORIGIN A7636. ADJUSTED LENGTH IS CC117. 


V IRTUAL 

SECTION 

• I GCEL • ’ 

- REFERS 

TO 

DECK 

• IOS 

•• 

LOCATION 

17430. 

VIRTUAL 

SECTION 

* CVCEL. 1 

- REFERS 

TO 

DECK 

•RWD 

•t 

LOCATION 

20165. 

VIRTUAL 

SECTION 

'BUI. • 

- REFERS 

TO 

DECK 

•RWD 


LOCATION 

20037. 

V IRTUAL 

SECTION 

•BU22. • 

- REFERS 

TO 

DECK 

•RWD 

f » 

LOCATION 

20053. 

VIRTUAL 

SECTION 

• SC. • 

- REFERS 

TO 

DECK 

•RWD 


LOCATION 

20021. 

V IRTUAL 

SECTION 

• GE TCH . • 

- REFERS 

TO 

DECK 

•RWD 


LOCATION 

20151. 

REAL SECTION 

• IOHHC. • 

- ASSIGNED 

ABSOLUTE ORIGIN 

47636. 



• ICV 

ASSIGNED ABSOLUTE 

ORIGIN 

47755. 

adjusted 

LENGTH IS 

CC020. 

VIRTUAL 

SECT I ON 

•cco. • 

- 

REFERS 

TO 

DECK 

•RWD 


LOCATION 

20031. 

VIRTUAL 

SECTION 

• sc. • 

- 

REFERS 

TO 

DECK 

•RWD 

% 

LOCATION 

20021. 

V IRTUAL 

SECTI ON 

•AST. • 

- 

REFERS 

TO 

DECK 

• INTJ 

' . 

LOCATION 

50145. 

VIRTUAL 

SECTI ON 

* I C 2 . • 

- 

REFERS 

TO 

DECK 

• INTJ 


LOCATION 

50116. 

VIRTUAL 

SECTION 

•IC10. • 

- 

REFERS 

TO 

DECK 

• INTJ 


LOCATION 

50132. 

V IRTUAL 

SECTION 

' ICCEL.' 

- 

REFERS 

TO 

DECK 

•IOS 


LOCATION 

17430. 

VIRTUAL 

SECTION 

• IOHCM.* 

- 

REFERS 

TO 

DECK 

• R WO 

•• 

LOCATION 

17537. 

V IRTUAL 

SECTION 

• IOHCT. • 

- 

REFERS 

TO 

DECK 

•RWD 

•» 

LOCATION 

17615. 

V IRTUAL 

SECTION 

' I OHDB • 1 

- 

REFERS 

TO 

DECK 

• INTJ 


LOCATION 

50165. 

REAL SECTION 

• I OH I C . • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

47755. 


RFAL SECTION 

* I OH IT. • 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

47761. 



• INTJ 

ASSIGNED ABSOLUTE 

ORIGIN 

47775. 

ADJUSTED LENGTH IS 

C0321 . 

VIRTUAL 

SECTION 

• CVCEL. 

- 

REFERS 

TO 

DECK 

•RWD 

S 

LOCATION 

20165. 

VIRTUAL 

SECTION 

' RU1. 

- 

REFERS 

TO 

DECK 

•RWD 

1 » 

LOCATION 

20037. 

VIRTUAL 

SECT ION 

• BU4 • 

- 

REFERS 

TO 

DECK 

• R WO 

*• 

LOCATION 

20044. 

VIRTUAL 

SECT ION 

• CCO. 

- 

REFERS 

TO 

DECK 

•RWD 


LOCATION 

20031. 

VIRTUAL 

SECT ION 

• DE60. 

- 

REFERS 

TO 

DECK 

•RWD 

•t 

LOCATION 

20077. 

VIRTUAL 

SECT ION 

• DE70 • 

- 

REFERS 

TO 

DECK 

•RWD 

’t 

LOCATION 

20100. 

VIRTUAL 

SECTION 

• XC. 

- 

REFERS 

TO 

DECK 

•RWD 

•t 

LOCATION 

20110. 

VIRTUAL 

SECTION 

• FEXEV. 

- 

REFERS 

TO 

DECK 

• X EM 

•• 

LOCATION 

20473. 

VIRTUAL 

SECTION 

• IOCEL. 

- 

REFERS 

TO 

DECK 

• IOS 

S 

LOCATION 

17430. 

VIRTUAL 

SECTION 

• GETCH. 

- 

REFERS 

TO 

DECK 

•RWD 

• . 

LOCATION 

2 Cl 5 1 . 

REAL SECTION 

• J. 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

50006. 


7 E A L SECTION 

• I C 2 . 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

50116. 


REAL SECTION 

• IC10. 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

50132. 


REAL SECTION 

• AST. 

- 

ASSIGNED 

ABSOLUTE ORIGIN 

50145. 
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REAL SECTION 'ASTI. • - ASSIGNED ABSOLUTE ORIGIN 50146. 

R CAL SECTION 'DE30. • - ASSIGNED ABSOLUTE ORIGIN 50152. 

REAL SECTION 'lOHDB.' - ASSIGNED ABSOLUTE ORIGIN 50165. 

REAL SECTION «UBC1. • - ASSIGNED ABSOLUTE ORIGIN 50177. 

REAL SECTION ' DBC5 . • - ASSIGNED ABSOLUTE ORIGIN 50217. 

REAL SECTION 'ANACH.' - ASSIGNED ABSOLUTE ORIGIN 50246. 

REAL SECTION 'SGI. * - ASSIGNED ABSOLUTE ORIGIN 50265. 

REAL SECTION 'DECEL.' - ASSIGNED ABSOLUTE ORIGIN 50307. 

DECK ' FFC ' ASSIGNED ABSOLUTE ORIGIN 50316. ADJUSTED LENGTH IS CC365. 

VIRTUAL SECTION MCIO. • - REFERS TO DECK MNTJ LOCATION 50132. 

VIRTUAL SECTION 'BU22. • - REFERS TO DECK 'RWD ', LOCATION 2C053. 

VIRTUAL SECTION 'DE60. • - REFERS TO DECK 'RWD «, LOCATION 2C077. 

VIRTUAL SECTION 'DE70. • - REFERS TO DECK 'RWD ', LOCATION 20100. 

VIRTUAL SECTION *IC2. • - REFERS TO DECK MNTJ LOCATION 50116. 

VIRTUAL SECTION 'J. • - REFERS TO DECK MNTJ LOCATION 50006. 

VIRTUAL SECTION 'DECEL.' - REFERS TO DECK MNTJ LOCATION 50307. 

VIRTUAL SECTION 'IOCEL.' - REFERS TO DECK MOS LOCATION 17430. 

VIRTUAL SECTION MOHCT.' - REFERS TO DECK 'RWD LOCATION 17615. 

VIRTUAL SECTION 'IOHDB. • - REFERS TO DECK MNTJ LOCATION 50165. 

REAL SECTION ' F F C 1 0 . ' - ASSIGNED ABSOLUTE ORIGIN 50316. 

RFAL SECTION ' FFC 1 1 • ' - ASSIGNED ABSOLUTE ORIGIN 50322. 

REAL SECTION ' FFC 1 2 . ' - ASSIGNED ABSOLUTE ORIGIN 50325. 

REAL SECTION ' FFC2 3 . ' - ASSIGNED ABSOLUTE ORIGIN 50344. 

REAL SECTION ' FFC24 . ' - ASSIGNED ABSOLUTE ORIGIN 50346. 

REAL SECTION ' F FC 30 . * - ASSIGNED ABSOLUTE ORIGIN 50466. 

REAL SECTION 'DE41. ' - ASSIGNED ABSOLUTE ORIGIN 50471. 

REAL SECTION 'DE44. • - ASSIGNED ABSOLUTE ORIGIN 50500. 

REAL SECTION ' FL T S W . ' - ASSIGNED ABSOLUTE ORIGIN 50512. 

REAL SFCTION 'BDE. ' - ASSIGNED ABSOLUTE ORIGIN 50537. 

RFAL SECTION 'CMC. • - ASSIGNED ABSOLUTE ORIGIN 50606. 

RFAL SECTION 'IOHPW.' - ASSIGNED ABSOLUTE ORIGIN 50621. 

DECK * SL 0 • ASSIGNED ABSOLUTE ORIGIN 50703. ADJUSTED LENGTH IS 00025. 

VIRTUAL SECTION 'ERLOC.' - REFERS TO DECK ' X EM '. LOCATION 20472. 

VIRTUAL SECTION MOCEL.' - REFERS TO DECK MOS LOCATION 17430. 

R c A L SECTION • SLO I 0. * - ASSIGNED ABSOLUTE ORIGIN 50703.. 

DECK • XP2 • ASSIGNED ABSOLUTE ORIGIN 50730. ADJUSTED LENGTH IS C0067. 

VIRTUAL SECTION 'FEXEM.' - REFERS TO DECK ' X EM LOCATION 20473. 

VIRTUAL SECTION 'ERLOC.' - REFERS TO OECK ' X EM LOCATION 20472. 

REAL SECTION * . E XP2 • ' - ASSIGNED ABSOLUTE ORIGIN 50735. 

DECK • XP3 • ASSIGNED ABSOLUTE ORIGIN 51017. ADJUSTED LENGTH IS 00051. 

VIRTUAL SECTION 'FEXEM.' - REFERS TO DECK ' XEM •, LOCATION 20473. 

VIRTUAL SECTION 'ERLOC.' - REFERS TO DECK ' X EM ', LOCATION 20472. 

VIRTUAL SECTION • ALOG ' - REFERS TO DECK 'LOG ', LOCATION 51177. 

VIRTUAL SECTION 'EXP • - REFERS TO OECK 'XPN ', LOCATION 51072. 

REAL SECTION ' . E X P 3 . * - ASSIGNED ABSOLUTE ORIGIN 51020. 

DECK 'XPN • ASSIGNED ABSOLUTE ORIGIN 51070. ADJUSTED LENGTH IS CC 1 03. 

VIRTUAL SECTION 'FEXEM.' - REFERS TO DECK ' XEM ', LOCATION 20473. 

VIRTUAL SECTION 'ERLOC.' - REFERS TO DECK 'XEM ', LOCATION 20472. 

REAL SECTION 'FXP • - ASSIGNED ABSOLUTE ORIGIN 51072. 
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DECK 

DECK 

DECK 

DECK 


•LOG ' ASSIGNED ABSOLUTE ORIGIN 51173. ADJUSTED LENGTH IS 
VIRTUAL SECTION 'FEXEM.* - REFERS TO DECK * X EM LOCATION 

VIRTUAL SECTION 'CRLOC.' - REFERS TO DECK * XEM LOCATION 

REAL SECTION 'ALOGIO* - ASSIGNED ABSOLUTE ORIGIN 51173. 

REAL SECTION • ALOG • - ASSIGNED ABSOLUTE ORIGIN 51177. 

•ATHRUZ* ASSIGNED ABSOLUTE ORIGIN 51321. ADJUSTED LENGTH IS 
VIRTUAL SECTION 'S.SLOC' - ASSIGNED ABSOLUTE ORIGIN 12253. 

REAL SECTION 'ATHRUZ' - ASSIGNED ABSOLUTE ORIGIN 51327. 

•POOL ' ASSIGNED ABSOLUTE ORIGIN 51343. ADJUSTED LENGTH IS 
VIRTUAL SECTION 'S.SLCC' - ASSIGNED ABSOLUTE ORIGIN 12253. 

REAL SECTION 'BOOL • - ASSIGNED ABSOLUTE ORIGIN 51351. 

•HLCT • ASSIGNED ABSOLUTE ORIGIN 51364. ADJUSTED LENGTH IS 
VIRTUAL SECTION 'S.SLOC' - ASSIGNED ABSOLUTE ORIGIN 12253. 

REAL SECTION 'HOLOCT* - ASSIGNED ABSOLUTE ORIGIN 51372. 


00126. 

20473 

20472 


00022 . 


00021 . 


C0047 . 



SPACE LIBRARY 


VER. 2, MOD. I 


IBLDR 


JOB SPACE 


MEMORY MAP 

OF LINK NUMBER 3,1611 ) 

ORIGIN OF THIS LINK AT DECK *611 • 


SYSTEM, INCLUDING IOCS OOOOO THRU 12252 

NUMBER OF FILES - NONE 

OBJECT PROGRAM 12352 THRU 51A32 


1 . 

OECK 

• SPC 


12352 

2 . 

DECK 

• DS SC AN * 


17001 

3 . 

SUP R 

• I NS YF B * 


OOOOO 

4. 

SUP R 

• 0USYFB* 


OOOOO 

5 . 

SURR 

•P0STX • 


17040 

6 . 

SURR 

• PPSYFB* 


OOOOO 

7. 

SURR 

• FO 5 • 


17152 

8 . 

SURR 

• F06 • 


17153 

9. 

SURR 

• I OS • 


17154 

10. 

SUBR 

•RWC • 


17452 

11 . 

SUBR 

* AC V • 


20203 

12 . 

SUBR 

• XCV ■ 


20233 

13. 

SURR 

. pp T . 


20251 

14. 

SURR 

• XEf' ■ 

• 

20467 

15. 

SUBR 

• XIT • 


20700 

16. 

SURR 

• DMP • 


20702 

17. 

SUBR 

•R0H44 • 


22572 

18 . 

DECK 

*611 

• 

24232 

19. 

DECK 

• S0RTC1' 


46527 

20. 

DECK 

•COPPAR* 


46620 

21 . 

DECK 

§ ALL ! N1 * 


46676 

22 . 

DECK 

* FI LENA* 

• 

47007 

23 . 

DECK 

•CNVRT • 

• 

47056 

24. 

DECK 

* DELETE* 


47235 

25. 

DECK 

' GSMRGE * 


47324 

26. 

SURR 

* EC V • 


47344 

27. 

SUBR 

* FCV • 


47545 

29. 

SUBR 

•HCV * 


47636 

29. 

SURR 

* ICV • 


47755 

30. 

SUBR 

• I NT J • 


47775 

31. 

SUBR 

• FFC * 


50316 

32 . 

SUBR 

• SLC • 


50703 

33. 

SURR 

• XP2 ' 


50730 

34. 

SURR 

• XP3 • 


51017 

35. 

SUBR 

• XPN • 


51070 

36. 

SURR 

* LOG • 


51173 

37. 

SURR 

• ATHRUZ* 


51321 

38. 

SURR 

•BOCL * 


51343 

39. 

SUBR 

• HLCT • 


51364 


• - INSERTIONS OR DELETIONS MADE IN THIS OECK ) 
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SPACE 


INPUT - OUTPUT BUFFERS 
UNUSED CORE 


-- JOB 

76157 THRU 
51433 THRU 


77776 

76147 



DECK 


DECK 


SPACE LIBRARY 


VER . 2, MOD. i 


IBLOR — JOB SPACE 


FOR OECKS OF 


LOGIC MAP 
LINK NUMBER 4, ( UTLITY ) 


RFAL SECTION 4 S.SLGC* - ASSIGNED ABSOLUTE ORIGIN 12253. 


* UTL f 

ASSIGNED ABSOLUTE 

ORIGIN 

24232. 

ADJUSTEO 

LENGTH IS 

02347. 

VIRTUAL 

SECT ION 

* S . J N AM* 

- 

REFERS 

TO 

DECK 

MBNUC 

•t 

LOCATION 

00311. 

VIRTUAL 

SECTION 

• S . S D AT * 

- 

REFERS 

TO 

DECK 

• IBNUC 

•t 

LOCATION 

00213. 

VIRTUAL 

SECTION 

4 S.SLTC 4 

- 

REFERS 

TO 

DECK 

MBNUC 

% 

LOCATION 

0C210. 

VIRTUAL 

SECTION 

* S. XDVA* 

- 

REFERS 

TO 

DECK 

MBNUC 


LOCATION 

00153. 

VIRTUAL 

SECTION 

4 FILIC. 4 

- 

REFERS 

TO 

DECK 

•RWD 


f . 

LOCATION 

20141. 

VIRTUAL 

SECTION 

• F l L06 . * 

- 

REFERS 

TO 

DECK 

•F06 


4 , 

LOCATION 

17153. 

VIRTUAL 

SECTION 

•HNLIO.* 

- 

REFERS 

TO 

DECK 

•RWD 



LOCATION 

17573. 

VIRTUAL 

section 

• SL 0 1 0 . • 

- 

REFERS 

TO 

DECK 

•SLO 


•» 

LOCATION 

3C127. 

VIRTUAL 

SECTION 

• S TH l 0 . ' 

- 

REFERS 

TO 

DECK 

•RWD 


• * 

LOCATION 

17472. 

VIRTUAL 

SECTION 

' I OH AC . • 

- 

REFERS 

TO 

DECK 

• ACV 


*, 

LOCATION 

20203. 

VIRTUAL 

SECTION 

* I 0HF C • * 

- 

REFERS 

TO 

DECK 

•ECV 


4 . 

LOCATION 

26601. 

VIRTUAL 

SECTION 

• I ONE F . • 

- 

REFERS 

TO 

DECK 

•R WO 


% 

LOCATION 

17665. 

VIRTUAL 

SECTION 

• I OHHC • * 

- 

REFERS 

TO 

DECK 

•HCV 


4 , 

LOCATION 

27002. 

VIRTUAL 

SECTION 

• IOHIC. • 

- 

REFERS 

TO 

DECK 

• ICV 


•f 

LOCATION 

27121. 

VIRTUAL 

SECTION 

* iohio.' 

- 

REFERS 

TO 

DECK 

•RWD 


•» 

LOCATION 

17702. 

VIRTUAL 

SECTION 

• I 0HL P • * 

- 

REFERS 

TO 

DECK 

•RWD 


• . 

LOCATION 

17625. 

VIRTUAL 

SECTION 

* I OHOC • * 

- 

REFERS 

TO 

DECK 

•OCV 


4 , 

LOCATION 

27141. 

VIRTUAL 

SECTION 

• I 0HR P • 1 

- 

REFERS 

TO 

DECK 

•RWD 


•t 

LOCATION 

17646. 

VIRTUAL 

SECTION 

* I OHX C . * 

- 

REFERS 

TO 

DECK 

•xcv 



LOCATION 

20233. 

VIRTUAL 

SECTION 

• AB0UT1* 

- 

REFERS 

TO 

DECK 

•SPC 


4 , 

LOCATION 

14252. 

VIRTUAL 

SECTION 

• AB0UT2 * 

- 

REFERS 

TO 

DECK 

•SPC 


*» 

LOCATION 

14256. 

VIRTUAL 

SECTION 

• ENDF * 

- 

REFERS 

TO 

DECK 

•SPC 


4 , 

LOCATION 

14272. 

VIRTUAL 

SECTION 

•OEDIT • 

- 

REFERS 

TO 

DECK 

•SPC 


•t 

LOCATION 

15344. 

VIRTUAL 

SECTION 

• REAUB1* 

- 

REFERS 

TO 

DECK 

•SPC 


4 i 

LOCATION 

14242. 

VIRTUAL 

SECTION 

• READB2' 

- 

REFERS 

TO 

DECK 

•SPC 


4 , 

LOCATION 

14246. 

VIRTUAL 

SECTION 

• SIGNON 4 

- 

REFERS 

TO 

DECK 

•SPC 


4 t 

LOCATION 

12352. 

V IRTUAL 

SECTION 

•SPACE • 

- 

REFERS 

TO 

DECK 

• SPC 


% 

LOCATION 

13533. 

RFAL SECTION 

• ACCESS' 

- 

OELETEI 

D. 

REFER 

S TO 

DECK 

•SPC •, 

LOCATION 

REAL SECTION 

• SYSTEM* 

- 

DELETED. 

REFERS TO 

DECK 

•SPC % 

LOCATION 


* FCV • ASSIGNED ABSOLUTE ORIGIN 26601. ADJUSTED LENGTH IS C02GI. 


VIRTUAL 

SECTION 

4 AST. 

i 

- 

REFERS 

TO 

DECK 

4 I NT J 

4 t 

LOCATION 

27370. 

VIRTUAL 

SECTION 

4 DE 30 • 

t 

- 

REFERS 

TO 

DECK 

• INTJ 

4 , 

LOCATION 

27375. 

VIRTUAL 

SECTION 

4 IC10. 

i 

- 

REFERS 

TO 

DECK 

4 INTJ 

4 , 

LOCATION 

27355. 

V IRTUAL 

SECTION 

4 J. 

• 

- 

REFERS 

TO 

DECK 

• INTJ 

% 

LOCATION 

27231. 

VIRTUAL 

SECTION 

•RU4. 

t 

- 

REFERS 

TO 

OECK 

•RWD 

4 . 

LOCATION 

20044. 

VIRTUAL 

SECTION 

4 BU2 2 • 

• 

- 

REFERS 

TO 

DECK 

•RWD 

•• 

LOCATION 

20053. 

VIRTUAL 

SECTION 

4 CCQ. 

« 

- 

REFERS 

TO 

DECK 

•RWD 

*. 

LOCATION 

20031. 

V IRTUAL 

SECTION 

•DE60. 

• 

- 

REFERS 

TO 

DECK 

•RVD 

4 . 

LOCATION 

20077. 

VIRTUAL 

SECTION 

4 DE70. 

« 

- 

REFERS 

TO 

DECK 

•RWD 

4 . 

LOCATION 

20100. 

VIRTUAL 

SECTION 

4 SC. 

« 

- 

REFERS 

TO 

DECK 

•RWD 

4 . 

LOCATION 

20021. 

VIRTUAL 

SECTION 

4 xc. 

• 

- 

REFERS 

TO 

OECK 

•RWD 

4 . 

LOCATION 

20110. 

V IRTUAL 

SECTION 

4 FFC10 

m * 

- 

REFERS 

TO 

DECK 

• FFC 

4 i 

LOCATION 

27541. 

VIRTUAL 

SECTION 

4 FFC12 

t • 

- 

REFERS 

TO 

DECK 

• FFC 

4 , 

LOCATION 

27550. 

VIRTUAL 

SECTION 

4 FFC24 

• 

- 

REFERS 

TO 

DECK 

•FFC 

4 , 

LOCATION 

27572. 

VIRTUAL 

SECTION 

4 fltsw 

# i 

- 

REFERS 

TO 

DECK 

•FFC 

•t 

LOCATION 

27736. 

V IRTUAL 

SECTION 

4 FFC30 

^ • 

- 

REFERS 

TO 

DECK 

•FFC 

4 , 

LOCATION 

27712. 

VIRTUAL 

SECTION 

4 0E4 1 . 

• 

- 

REFERS 

TO 

DECK 

•FFC 

4 * 

LOCATION 

27715. 


16617. 

16476. 
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SPACE LIBRARY 


VER. 2, MOC. 


IBIDR — JOB SPACE 



VIRTUAL 

SECTION 

•DE44. • 

- 

REFERS 

TO OECK 

•FFC 

« 

LOCATION 

27724. 


VIRTUAL 

SECTION 

* CVCEL . • 

- 

REFERS 

TO DECK 

•RWD 

• 

LOCATION 

20165. 


VIRTUAL 

SECTION 

* I OCEL • 1 

- 

REFERS 

TO DECK 

• IOS 

* 

LOCATION 

17430. 


VIRTUAL 

SECTION 

• I 0HC M * • 

- 

REFERS 

TO DECK 

•RWD 

t 

LOCATION 

17537. 


VIRTUAL 

SECTION 

• DECEL . • 

- 

REFERS 

TO OECK 

• l NT J 

i 

LOCATION 

27532. 


REAL SECTION 

• I OHEC • • 

- 

ASSIGNED ABSOLUTE OR 

IGIN 

26601. 



REAL SECTION 

• I OHET • • 

- 

ASSIGNEO ABSOLUTE OR 

IGIN 

26605. 



REAL SECTION 

• DC1 . ■ 

- 

ASSIGNED ABSOLUTE OR 

IGIN 

26612. 



REAL SECTION 

• DE * • 

• 

ASSIGNED ABSOLUTE OR 

IGIN 

26630. 



REAL SECTION 

•FFC9. • 

- 

ASSIGNED ABSOLUTE OR 

IGIN 

26733. 



REAL SECTION 

• FFC2 l • • 

- 

ASSIGNED ABSOLUTE OR 

IGIN 

27001. 


OECK 

• HCV • 

ASSIGNED ABSOLUTE 

ORIGIN 

27002. 

AOJUSTEO 

LENGTH IS 

€0117. 


VIRTUAL 

SECTION 

• IOCEL. 1 

- 

REFERS 

TO DECK 

* IOS 

f • 

LOCATION 

17430. 


VIRTUAL 

SECTION 

•CVCEL.* 

- 

REFERS 

TO DECK 

•RWD 

•. 

LOCATION 

20165. 


V IRTUAL 

SECTION 

•BUI. • 

- 

REFERS 

TO DECK 

•RWD 

S 

LOCATION 

20037. 


VIRTUAL 

SECTION 

* BU2 2 • • 

- 

REFERS 

TO DECK 

•RWD 

• t 

LOCATION 

20053. 


V IRTUAL 

SECTION 

• SC. # 

- 

REFERS 

TO OECK 

•RWD 

*. 

LOCATION 

20021. 


VIRTUAL 

SECTION 

•GETCH. 1 

- 

REFERS 

TO DECK 

•RWD 

• . 

LOCATION 

20151. 


REAL SECTION 

• l 0HHC • • 

- 

ASSIGNED ABSOLUTE ORIGIN 

27002. 


DECK 

• ICV # 

ASSIGNED ABSOLUTE 

ORIGIN 

27121. 

adjusted 

LENGTH IS 

C0020. 


VIRTUAL 

SECTION 

•CCQ. • 

- 

REFERS 

TO DECK 

• R WO 

•t 

LOCATION 

20031. 


VIRTUAL 

SECTION 

• SC. • 

- 

REFERS 

TO DECK 

•RWD 

•* 

LOCATION 

20021. 


VIRTUAL 

SECTION 

•AST. • 

- 

REFERS 

TO DECK 

* INTJ 


LOCATION 

27370. 


V IRTUAL 

SECTION 

• I C 2 . • 

- 

REFERS 

TO DECK 

• INTJ 

% 

LOCATION 

27341. 


VIRTUAL 

SECTION 

•ICIO. • 

- 

REFERS 

TO OECK 

• INTJ 

S 

LOCATION 

27355. 


V IRTUAL 

SECTION 

• I OCEL . • 

- 

REFERS 

TO DECK 

• IOS 

1 . 

LOCATION 

17430. 


V IRTUAL 

SECT ION 

1 I 0HCM . • 

- 

REFERS 

TO DECK 

•RWD 

• . 

LOCATION 

17537. 


V IRTUAL 

SECTION 

• l GHCT • • 

- 

REFERS 

TO DECK 

•RWD 


LOCAT ION 

17615. 


VIRTUAL 

SECTION 

* I OHDB* • 

- 

REFERS 

TO DECK 

• INTJ 

•t 

LOCATION 

27410. 


REAL SECTION 

• I OH I C.* 

- 

ASSIGNED ABSOLUTE ORIGIN 

27121. 



REAL SECTION 

• I OH IT. • 

- 

ASSIGNED ABSOLUTE ORIGIN 

27125. 


OECK 

• OCV 

ASSIGNED ABSOLUTE 

ORIGIN 

27141. 

ADJUSTED 

LENGTH IS 

00057. 


V IRTUAL 

SECTION 

•BUI. 1 

- 

REFERS 

TO DECK 

•RWD 

4 » 

LOCATION 

20037. 


VIRTUAL 

SECTION 

•CCA. • 

- 

REFERS 

TO DECK 

•RWD 

•* 

LOCATION 

20027. 


V IRTUAL 

SECTION 

•G6TCH.* 

- 

REFERS 

TO OECK 

•RWD 

S 

LOCATION 

20151. 


VIRTUAL 

SECTION 

• HCT . • 

- 

REFERS 

TO DECK 

•RWD 

•» 

LOCATION 

17614. 


VIRTUAL 

SECTION 

• SC. • 

- 

REFERS 

TO DECK 

•RWD 

■t 

LOCATION 

20021. 


VIRTUAL 

SECTION 

• XC. • 

- 

REFERS 

TO DECK 

•RWD 

•• 

LOCATION 

20110. 


VIRTUAL 

SECTION 

•CVCEL.* 

- 

REFERS 

TO DECK 

•RWD 

•t 

LOCATION 

20165. 


V IRTUAL 

SECTION 

*FEXE*.» 

- 

REFERS 

TO DECK 

• XEM 

•» 

LOCATION 

20473. 


VIRTUAL 

SECTION 

• I OCEL. • 

- 

REFERS 

TO DECK 

• IOS 

•t 

LOCATION 

17430. 


VIRTUAL 

SECTION 

• ICHCP.* 

- 

REFERS 

TO DECK 

•RWD 

•t 

LOCATION 

17537. 


REAL SECTION 

* I OH0C . • 

- 

ASSIGNED ABSOLUTE ORIGIN 

27141. 


OECK 

* l NT J 

ASSIGNEO ABSOLUTE 

ORIGIN 

27220. 

ADJUSTED 

LENGTH IS 

CC321. 


VIRTUAL 

SECTION 

• CVCEL.* 

- 

REFERS 

TO DECK 

•RWD 

• 

LOCATION 

20165. 


VIRTUAL 

SECTION 

•BUI. * 

- 

REFERS 

TO OECK 

•RWD 

« 

LOCATION 

20037. 


VIRTUAL 

SECTION 

• 8U4 • • 

- 

REFERS 

TO DECK 

•RWD 

• ( 

LOCATION 

20044. 


VIRTUAL 

SECTION 

•CCQ. • 

- 

REFERS 

TO DECK 

•RWD 

• 

LOCATION 

20031. 


VIRTUAL 

SECTION 

• DE60 • • 

- 

REFERS 

TO DECK 

•RWD 

« f 

LOCATION 

20077. 


VIRTUAL 

SECTION 

• DE70 • • 

- 

REFERS 

TO DECK 

• RWD 

t 

LOCATION 

20100. 


VIRTUAL 

SECTION 

* XC. * 

- 

REFERS 

TO DECK 

•RWD 

i 

LOCATION 

20110. 
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DECK 


DECK 


SPACE 

L I BRARY 

"" 

V ER * 2. 

HOC 

. 1 


IBLDR - 

- JOB 

SPACE 

VIRTUAL SECTI 

ON 

• FEXFM. 


REFERS TO 

DECK 'XEM 

9 t 

LOCATION 

20473 

VIRTUAL SECTI 

ON 

• IOCEL. 

- 

REFERS TO 

DECK ' IOS 

9 , 

LOCATION 

17430 

VIRTUAL SECTI 

ON 

• GETCH. 

- 

REFERS TO 

DECK 1 R WD 


LOCATION 

20151 

REAL 

SECTION 


• J. 

- 

ASSIGNED 

absolute 

OR 

IGIN 

27231. 


REAL 

SECTI ON 


• IC2. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27341. 


REAL 

SECTION 


• ICIO. 

- 

ASSIGNED 

absolute 

OR 

IGIN 

27355. 


REAL 

SECTI ON 


• AST. 

- 

ASSIGNED 

ABSOLUTE 

Oft 

IGIN 

27370. 


REAL 

SECTI ON 


' ASTI. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27371. 


REAL 

SECT! ON 


• DE 30 . 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27375. 


REAL 

SECTI ON 


• IOHDB. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27410. 


REAL 

SECTI ON 


• DBC1. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27422. 


REAL 

SECTI ON 


• DBC5 . 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27442. 


REAL 

SECTION 


• ANACH. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27471. 


REAL 

SECTION 


•SGI. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27510. 


REAL 

SECTION 


* DECEL. 

- 

ASS IGNED 

ABSOLUTE 

OR 

IGIN 

27532. 


• FFC 

• ASSI 

GNED ABSOLUTE 

ORIGIN 275M. ADJUSTED L 

ENGTH IS 

C0366. 

VIRTUAL SECTI 

ON 

• ICIO. 

- 

REFERS TO 

DECK • I NT J 

• 

LOCATION 

27355 

VIRTUAL SECTI 

ON 

• BU2 2 . 

- 

REFERS TO 

DECK * R WD 

• 

LOCATION 

20053 

VIRTUAL SECTI 

ON 

• DE60. 

- 

REFERS TO 

OECK • R WD 

i 

LOCATION 

20077 

VIRTUAL SECTI 

ON 

• D E 70 . 

- 

REFERS TO 

DECK * RWO 

• 

LOCATION 

20100 

VIRTUAL SECTI 

ON 

* IC2. 

- 

REFERS TO 

DECK • I NT J 

t 

LOCATION 

27341 

VIRTUAL SECTI 

ON 

' J. 

- 

REFERS TO 

DECK • I NT J 

• 

LOCATION 

2 7231. 

VIRTUAL SECTI 

ON 

• DECEL. 

- 

REFERS TO 

DECK • I NT J 

< 

LOCATION 

27532 

VIRTUAL SECTI 

ON 

• IOCEL. 

- 

REFERS TO 

DECK *IOS 

• 

LOCATION 

17430 

VIRTUAL SECTI 

ON 

• IOHCT. 

- 

REFERS TO 

DECK • R WD 

• 

LOCATION 

17615 

VIRTUAL SECTI 

ON 

• IOHDB. 

- 

REFERS TO 

DECK M 

NT J 

• 

LOCATION 

27410 

REAL 

SECTION 


• FFC l 0 . 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27541. 


REAL 

SECTI ON 


•FFCll. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27545. 


REAL 

SECTION 


• FFC 1 2 . 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27550. 


REAL 

SECTI ON 


• FFC23. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27570. 


REAL 

SECTION 


• FFC24. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27572. 


REAL 

SECTI ON 


* FFC30. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27712. 


REAL 

SECTION 


•DEVI. 

- 

ASS IGNED 

ABSOLUTE 

OR 

IGIN 

27715. 


REAL 

SECTION 


•CE44. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27724. 


REAL 

SECTI ON 


•FLTSW. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27736. 


REAL 

SECTI ON 


• BDE. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

27763. 


REAL 

SECTI ON 


• CMC. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

30032. 


REAL 

SECTI ON 


* 10HPW. 

- 

ASSIGNED 

ABSOLUTE 

OR 

IGIN 

30045. 


' SLO 

' ASSI 

GNED ABSOLUTE 

ORIGIN 30127. ADJUSTED L 

ENGTH IS 

CC025. 

VIRTUAL SECTI 

ON 

• ERLOC.' 

- 

REFERS TO 

DECK • XEM 


LOCATION 

20472. 

VIRTUAL SECTI 

ON 

* I OCEL.' 

- 

REFERS TO 

DECK 'IOS 

S 

LOCATION 

174 30. 

REAL 

SECTI ON 


• SLOIC.' 

- 

ASSIGNED 

ABSOLUTE 

ORIGIN 

30127. 



SPACE LIRKARY 


VER. 2, MOD. 1 


I8LDR 


JOB 


SPACE 


MEMORY map 

OF LINK NUMBER 4,1 UTLITY ) 
ORIGIN OF THIS LINK AT DECK *UTL 


SYSTEM, INCLUDING IOCS OOOCO THRU 12252 

NUMBER OF FILES - NONE 


OBJECT PROGRAM 12352 THRU 30153 


1 . 

DECK 

• SPC • 

12352 




2 . 

DECK 

•DSSCAN' 

17001 




3 . 

SU8R 

• INSYFB* 

00000 




4 . 

SUBR 

• OUSYFB* 

00000 




5 . 

SURR 

•POSTX • 

17040 




6 . 

SUBR 

• PPSYFB* 

00000 




7. 

SURR 

• FO 5 

17152 




8 . 

SURR 

• F06 • 

17153 




9 . 

SUBR 

M OS • 

17154 




10. 

SUBR 

• RWO ' 

17452 




11 . 

SUBR 

* ACV 1 

20203 




12 . 

SUBR 

• XCV * 

20233 




13 . 

SUBR 

• FPT • 

20251 




14 . 

SUBR 

• XEM • * 

20467 




15. 

SUBR 

* XIT • 

20700 




16 . 

SUBR 

• DMP • 

20702 




17. 

SUBR 

• RDH44 • 

22572 




18 . 

DECK 

•UTL * * 

24232 




19. 

SURR 

• ECV • 

26601 




20. 

SUBR 

* HCV • 

27002 




21 . 

SUBR 

* ICV 

27121 




22 . 

SUBR 

- OCV 

27141 




23 . 

SUBR 

• I NT J • 

27220 




24. 

SUBR 

•FFC • * 

27541 




25. 

SUBR 

• SLC • 

30127 




(* - 

INSERTIONS OR DELETIONS 

MADE IN THIS DECK ) 




INPUT - 

OUTPUT BUFFERS 


76157 

THRU 

77776 

UNUSED 

CORE 



30154 

THRU 

76147 


OBJECT PROGRAM IS BEING ENTERED INTO STORAGE. 

SPACE - VER. 2. MOD. 1 HAS CONTROL 

REELS R 91 8 DEFER F 910C1 LIST F 91002 LIST F 91003 LIST 

R -3 F -3001 LIST F -3002 LIST 
REEL -A C FILE -4001 LIST 

R -5 F -5001 COPY T 0 91004 LIST F -5002 COPYTO 91005 LIST 
F 91001 COPYTO -5003 F -5001 COPYTO 910C6 F 91004 LISTI 4 
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RELATED PROGRAMMER INFORMATION 


a. The monitor itself occupies approximately 2325/10 

locations of core storage; however, it overlays more 

than the first quarter of itself with the following: 

1. Post-execution file utility operations 
tab 1 e. 

2- IOCS file control blocks. 

3- IOCS buffer pool list. 

4. Buffers. _ 

Depending upon the storage required by items 1-3, one 
or two buffers will occupy this area. Remaining buffers, 
if needed, will be constructed in upper core. Note that 
the number of such buffers which can be used for a given 
program is a function of its size; i.e., if the program 
is very large, some buffers may have to be released to 
serve as program area. The pool will, however, be restored 
to its original state for the next program, unless a 
similar situation exists. In every case, the upper memory 
break contained in the address portion of S.SLOC+3 > s 
adjusted by the monitor to reflect buffer residence. 

This adjustment is made for each program when it is loaded. 

b. The READH subroutine is used by the monitor for BCD input 
and hence, must be included in the main link. 

c. Although the library must be prepared in chain link format, 
the chain subroutine in IBLIB is not used for loading 
links. Unless referenced by some program, it will never 

be in core. 

d. Two stringent requirements are imposed upon the main 
link. First, it must contain the definitions of all 
IOCS files used in the entire library, and second, it 
must contain the definition of the largest block of 
blank common. Thus, if any programs require the use 
of non-SPACE files, the appropriate $FILE cards must 

be included in the main link when the library is created. 

The DEFER or READY mounting option should be specified 

for all such files. Use of blank common can usually 

be avoided by employing named common; however, the user 
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may elect to include a deck in the main link specify- 
ing the largest definition. For example: 

1 8 16 

$1 BMAP DEFINE 

CONTRL // 

USE // 

BSS 500 

END 

e. Variable unit designations should never be used in 
FORTRAN I/O statements, as all logical units defined 
in the IOU table will be considered unavailable to 
the monitor. 
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SECTION 3 
USER'S MANUAL 

TABLE OF CONTENTS 
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SECTION 3 
USER'S MANUAL 


3. 1 PREPARING THE REELS CARD SERIES 

Every reel, permanent or mediary, to be used in a given job 
must be specified in the REELS card series. In addition, all files 
which are to take part in post-execution utility operations must be 
identified in the series. The user should familiarize himself with 
the organization of the job deck as prescribed in section 2.1.2 of 
th i s manual . 

3.1.1 CATEGORY KEYWORDS 

Information appearing in the REELS card series must be in the form 
of groups, of which there are three possible categories. The beginning 
of each group is identified by a keyword classifying the group and 
ends when either the keyword of the next group or the end of the 
series is encountered. The category keywords are as follows: 

a* REEL - This keyword indicates the beginning of a group 

of information related to some reel which is 
to be used for the job. It must always be followed 
immediately with a positive permanent, or negative 
mediary reel number. Options pertaining to the 
reel may follow the reel number in any order. 

b. FILE - This keyword indicates the beginning of a 

group of information related to some file which 
is to be processed by the post-execution utility 
program. The keyword must always be followed 
immediately with the file number of the file 
which is to be referenced. Either, or both, of 
the two utility options may follow the reference 
file number in any order. 


3 - 1-01 


c. BUFFERS - If it is used, this keyword must be immediately 
followed with a single integer which establishes 
the number of buffers to be assigned for the 
job. If this keyword is omitted, or if the speci- 
fication is zero, two buffers will be assigned 
for each reel (unless two or more reels share 
the same physical device by virtue of the DEFER 
option). 

To permit economy in punching, the keywords REEL, FILE, and BUFFERS 
may be punched as R, F, and BUF, respectively. 

2 OPTIONS PERTAINING TO INDIVIDUAL REELS 

In some instances, it is necessary to supply additional informa- 
tion related to a certain reel, or the user may elect to exercise 
one or more options available for the reel. This information must 
be part of the R group to which it applies and can follow the reel 
number in any order. The various options/specifications recognized 
include: 

a. The unit to which the reel is to be assigned, as follows: 

Uxx = The reel is to be assigned to the symbolic 
utility unit, S.SUxx. 

Iyy = The reel is to be assigned to a unit having 
the intersystem reservation code yy. 

IyyR = Same as Iyy, except that after the assignment 
is made, the unit's reservation code is to be 
canceled (set to 00). 

Uxx Iyy = Same as Uxx, except that the reservation code yy 
(< 20) is to be assigned to the symbolic unit 
specified by Uxx. Note that these are two 
separate words. 

B = The reel should be assigned to any tape drive 

on channel B. 

C = The reel should be assigned to any tape drive 

on channel C. 
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b. The specification, NOLABEL , which indicates that a reel 
header label does not exist, and hence must be created* 
Unless NOLABEL has been specified for a given permanent 
reel, the monitor will attempt to read and verify its 
label to insure that the correct reel has been mounted. If 
the label cannot be read, or cannot be identified, the 
condition will be treated as an error and will terminate 
execution. The NOLABEL specification is not required for 
mediary reels and should'only be employed with the first 
SPACE application of a permanent reel. 

c. The FP option may be exercised for permanent reels which 
are to be logically file protected by the monitor. With 
this option in effect, the associated reel cannot be 
written upon. An exception occurs when a utility opera- 
tion requests a file to be copied onto the reel. In this 
case, and this case only, the file protect option is 

i gnored. 

d. The DEFER option may be used for a reel which will not 
be needed until later in the job, or perhaps will not be 
needed at all. When this option is employed, the operator 
mounting message is deferred until a file on the reel is 
opened by READB1 or AB0UT1. Observe that this supplies 
the user with the ability to assign two or more reels to 
the same physical unit. With such an application, the 
monitor will unload the reel currently mounted and request 
the deferred reel to be mounted in its place. The removed 
reel will then be placed in a deferred status, even though 
the DEFER option was not exercised with it. The user must, 
therefore, be aware of the order in which files will be 
used on reels sharing the same unit. Consider, for example, 
reels A and B which have both been assigned to the same 
unit by virtue of the DEFER option for reel B. If files 

on these reels starting with A, were referenced in an 
alternate fashion, the operator would be in continuous 
state of repeating the following four steps: 
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1 . Remove A 

2. Mount B 
3- Remove B 
4. Mount A 

3 .I .3 ORDER OF UNIT ASSIGNMENT 

The monitor will consider a device available and hence, permit 
assignment only if the following requirements are met: 

a. The device is symbolically attached. 

b. Its reservation code is 00 , except for Iyy or 
lyyR specifications. 

c. It is either a tape transport on channel B or C, 
or disk/drum storage accessed sequentially in 
full track with addresses mode. 

When more than one technique of unit assignment has been specified 
for reels appearing in the REELS card series, the order of assignment 
is as follows: 

1. All Uxx specifications are processed first. 

2 . AH Uxx Iyy, Iyy, and IyyR specifications 
are processed second. 

3 . All reels having a channel preference are assigned 
next. If an available unit cannot be found on the 
desired channel, the channel preference will be 
ignored and the reel placed in the next category. 

4. All reels which do not have an assignment speci- 
fication are assigned units last. When making such 
assignments, the monitor will attempt to satisfy as 
many of the following criteria as possible: 

a. Disk/drum utility units for mediary reels. 

b. Tape transports in ready status for all 
mediary reels which cannot be assigned 
disk/drum. 

c. Tape transports not in ready status for 
all permanent reels. 
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3-1*4 POST-EXECUTION FILE UTILITY OPTIONS 


The user may elect to employ either or both of the two utility 
options for a given file. These options must be part of the F group 
to which they apply, and can follow the reference file number in any 
order. 

a- The LISTx option is used to dump selected logical 
records from the reference file onto S.S0U1 in the 
format prescribed by the character x appended to the 
word. The significance of this character is as 
fol lows : 

x = blank or 8 - List in octal. 

x = I - List as integer. 

x = F - List as floating point decimal 

in the format +X .XXXXXXE+YY . 

x = B - List as BCD. 

The LISTx option may assume any one of the following 


1 . 

LISTx 

- A1 i records in 

the reference 



file are to be 

1 i s ted . 

2 . 

LISTx 

i - The first i records of the 



reference file 

are to be 1 isted 

3- 

LISTx 

i , j - Records start i 

ng with record i 


up to and including record j are 
to be listed. The integers i and 
j may be given in any order. 

Note that option (l) is a single word, while options ( 2 ) 
and ( 3 ) constitute two words. 

b. The COPYTO option provides a means by which the reference 
file can be copied to another file. The word, COPYTO, 
must always be followed by the file number of the file 
to which the copy is desired. With the exception of the 
file number, the contents of the ident i f i cat ion record 
of the new file will remain the same as that of the ref- 
erence file. The user will always be notified of the 
success or failure of a requested copy. 
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NOTE: Utility operations are performed in the order which 

they are given in the REELS card series. Hence, the 
user must plan the sequence of activities to be 
performed. 

3.1.5 SERIES PREPARATION EXAMPLES 
Example 1: 


Col. 1-5 

Col. 7-72 

REELS 

R 91 NOLABEL F 91001 LIST F 91002 LIST 


R -1 R -2 B FILE -1004 C0PYT0 9IOO3 


LISTF 20 * 


In the example above, a total of three reels have been specified . 
Reel 91 is permanent and does not have a label. Two files on this 
reel, 91001 and 91002 should be fully listed in octal at the end of 
the job. Two mediary reels having reference numbers -1 and -2 are also 
required in the job. If possible, reel -2 should be assigned to a 
tape unit on channel B. At the end of the job, file -1004 is to be 
copied to file 91003 and the first twenty logical records of file 
-1004 are to be listed in floating point decimal. 

Example 2: 


Col. 1-5 


REELS 

R -5 R -10 R -15 R 478 DEFER 


N0LABEL U04 R 1 396 U04 R 673 H 6 R 


F -10002 LIST8 50,100 C0PYT0 478001 * 


This example illustrates the use of six reels. Three of these 
are mediary and have reference numbers - 5 , -10 and -15* The remain- 
ing three reels are permanent and bear identification numbers 478, 
I 396 and 673 . Assuming the conf i gurat ion of the system consists of 
only five symbolic utility units, reels 478 and 1398 have been 


3 - 1-06 




assigned to the same device (S.SU04) by virtue of the DEFER option 
for reel 478. This reel is not needed during processing; however, 
a file which will be created during the job must be saved on the 
reel. Hence, when the utility processor opens file 478001 for the 
requested copy, reel 1 396 will be unloaded and reel 478 mounted in 
its place. The appearance of the NOLABEL specification for reel 
478 indicates that it must be labeled when it is mounted. Reel 67 °, 
is to be assigned to a symbolic unit having the intersystem reserva- 
tion code 16 and, as soon as the assignment is made, the reservation 
code is to be cancelled. At the end of the job, logical records 
50-100 of file -10002 are to be listed in octal and the file is to 
be copied to file 478001. 

3 .I .6 ASSOCIATED ERROR DIAGNOSTICS 

The following errors can occur while processing the REELS card 
series. Each will have the effect of terminating execution without 
calling the DUMP program. 

3 . 1.6.1 'REELS’ CARD MISSING. OR IMPROPERLY PUNCHED . 

The monitor has not found the BCD word REELS punched in 
columns 1-5 of the first card in the series. 

3 . 1.6.2 UNRECOGNIZED OPTION ON 'REELS' CARD -- WORD »» = »»»»** ■ 

A word has been punched in the series which the monitor cannot 
recogn i ze. 

3 . 1.6 . 3 FILE INFO ON 'REELS' CARD EXCEEDS CAPACITY OF ALLOTTED STORAGE 
BY *♦* ENTRIES . 

The table into which the post-execut ion file utility operation 
requests are placed has overflowed. This table is initially constructed 
in the area occupied by the first dependent link, and later moved to 
overlay code which is no longer needed at the origin of the monitor. 

This overlay area constitutes approximately 230 ^q cells and can 

accommodate many utility requests. Within the table, three entries 
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are required for each F group specifying both utility operations, 
and two entries are required for each F group specifying only one 
operation. The number given in the diagnostic reflects the amount 
of excess in terms of cells. 

3. 1.6. 4 TOO MANY REELS SPECIFIED - LIMIT is 15 . 

More than fifteen R groups have been specified in the series. 

This limit is nominal and may be changed according to user requirements. 

3 . 1-6.5 SYMBOLIC UNIT S.SU** REQUESTED FOR REEL ***** IS UNAVAILABLE . 

A Uxx specification has been given for the reel; however, the 
monitor has discovered that the requested symbolic unit is not 
available. The fact that it is unavailable may be attributed to 
either of the following conditions: 

a. The unit is not symbolically attached. 

b. Its reservation code is not 00. 

3-1-6. 6 RESERVATION CODE ** (REEL *****) IS NONEXISTENT . 

An Iyy or IyyR specification has been given for the reel; how- 
ever, a unit with a matching reservation code was not found. 

3- 1-6. 7 UNIT ASSIGNMENT CANNOT BE MADE FOR REEL ***** 

When the monitor has allegedly finished processing the REELS 
card series, a verification of all unit assignments is made. This 
diagnostic indicates that the given reel could not be assigned to 
a unit, or the assignment would otherwise be illegal. The condition 
was probably caused by one of the following: 

a. Sufficient utility devices were not available to 
accommodate all of the reels. 

b. A utility device other than magnetic tape on channel 
B or C was specified (or implied) for the given 
permanent reel. 

c. A utility device other than magnetic tape on channel B 
or C, or disk/drum storage which is not accessed 
sequentially in full track w/addresses was specified 
(or implied) for the given mediary reel. 
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j. 1.6.8 REELS ***** AND ***** HAVE DUPLICATE UNIT ASSIGNMENT SPECIFICATIONS. 


The two reel 
device; however, 


s were assigned by the user to the same physical 
the DEFER option was not specified for either one- 


* 
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CREATING THE LIBRARY 


The SPACE library must always consist of an overlay structure 
created by employing the chain feature of I B JOB . The configuration 
must be such that the monitor is contained in the main link, with 
subsidiary programs constituting the dependent links. By exercising 
the copy feature, the library can be placed on the user's personal 
reel of tape- Subsequent SPACE applications will then require the 
library reel to be mounted, and the reload feature to be employed. 

The user should read the sections entitled Loader Chain Feature and 
the Reload Program, both contained in the 7040/44 Programmer's Guide. 

3.2.1 PLANNING THE LINK STRUCTURE 

A considerable amount of tape spacing time can be saved by 
planning the link structure of the library in an efficient manner, 
as prescribed by the following: 

a. A program which is executed via a direct chain from another 
program should immediately follow the latter in the library. 

b. Subroutines common to two or more programs should be 
included in the main link along with the monitor. This 
otherwise prevents the same routine(s) from being loaded 
with each program in the course of execution. 

c. The post-execution file utility processor should always 

be the last link in the library. Otherwise, it might have 
to be passed over several times in the course of accessing 
the other programs, thus causing an unnecessary waste of 
tape passing time. 

In general, a certain amount of finesse is needed to create an 
efficient library. The user should be aware of the frequency and 
order in which programs will normally be executed, and try to plan 
the library so that a minimum of tape passing time is needed to access 
the programs. 
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3.2.2 LIBRARY PREPARATION EXAMPLES 

In the examples which follow, the library will be created on 
reel 527 and will contain programs 71Z, 81 Z and 91Z, in addition 
to the required utility processor, UTLITY. Normally, program 71Z 
will be executed via a direct chain from 91Z, after which 81Z will 
be executed. The structure of the library, therefore, should be 
as follows: 

Ma i n 1 i nk = SPACE 

1st dependent link = 9\1 

2nd dependent link = J]Z 
3rd dependent link = 81Z 

4th dependent link = UTLITY 

Assume that the decks comprising the main link and the four dependent 
links above exist in binary, FORTRAN source, binary, MAP symbolic 
and binary, respectively* 
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Example 1: Create the library, but do not execute. 


CARO 
NUMBER 
/ CARD 
COLUMN 

Hi 

8 

16 

1 . 

$JOB 


CREATE LIBE - NO EXECUTION 

2. 

$PAUSE 


READY REEL 527 ON S.SU04 

3- 

$ 1 BJOB 

LIBE 

NOGO , LOG 1 C , COPY=U04 

4. 

$CHAIN 

SPACE 


5- 

$IBLDR 

SPC 


6. 

(SPACE b 

inary deck) 


7- 

$DKEND 

SPC 


8. 

$ENTRY 



9. 

$L INK 

91Z 


10. 

$IBFTC 

91Z 

LIST, REF 

11. 

(91 Z FORTRAN source 

deck terminating with END card) 

12. 

$ENTRY 



13. 

$LINK 

71Z 


14. 

$IBLOR 

71Z 


15. 

(712 binary deck) 


16. 

$OKENO 

71Z 


17. 

$ENTRY 



18. 

$LINK 

81Z 


19. 

flBMAP 

81 Z 


20. 

(81 Z MAP 

symbolic deck terminating with END card) 

21. 

$ENTRY 



22. 

$LINK 

UTLITY 


23. 

$IBLDR 

UTLITY 


24. 

(UTLITY binary deck) 


25. 

$DKEND 

UTLITY 


26 . 

Gentry 



27. 

$ENOCH 



28. 

$1BSYS 
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Card functions for example 1: 


1 . Oef ine job. 

2 . Pause, after directing operator to mount reel 527 on 
the physical unit (tape transport) assigned S.SU04. 

3. Define processor application, name of such, and options 
which are to be applied. 

4. Must immediately follow the $IBJ0B card and specifies the 
name of the main link. For purposes of convention and 
identification, this name should always be SPACE. 

5. Specifies loader application and name of deck. 

6 . Constitutes the binary deck of SPACE* 

7- Signifies end of deck SPC. Should the user elect to place 
any subroutine decks in the main link, they should be 
inserted between cards 7 and 8 . 

8 . Signifies end of main link. 

9- Defines beginning of first dependent link. The link 

name beginning in column 8 is that which must be used in 
columns 1-6 in the program control card series, or the 
CALL argument in the case of a direct chain. Note that 
it may be the same as the deck name appearing on any 
processor control card. 

10. Specifies a FORTRAN compilation for deck 9 IZ. Note that 
the LIST and REF options have been exercised to obtain 

a MAP listing and cross reference index. This is necessary, 
should the programmer or user desire to make an execution- 
time binary patch in the program. 

11. Constitutes the entire FORTRAN source deck for program 
91Z. If 91Z requires subroutine decks, these decks 
should immediately follow. They will become part of the 
first dependent link and will be loaded along with 9\Z 
at execution time* 

12. Signifies end of first dependent link. 

13- Defines beginning of second dependent link. 

14-16. Entire binary deck of program 71Z. 

17* Signifies end of second dependent link. 
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27 . 


Signifies end of all links. Since a symbolic unit 
specification (UO^) was given for the COPY option, 
reel 527 will be unloaded. 

28 . Return control to IBSYS. 


Example 2: An application using the library. 


CARD 

NUMBER 

^CARD^ 

COLUMN 

1 

8 


16 


1 . 

$J0B 



SPACE APPLICATION 


2 . 

$PAUSE 



READY REEL 527 ON S.SU04 


3* 

$ IBJOB 

RELOAD 

NOSOURCE 


4. 

$REL0AD 



U04,NAME=SPACE,SRCH 


5- 

REELS 

R -1 

R 91 F -1002 COPYTO 9 IOO 3 


6 . 


LISTB 

100 

* 


7- 

91Z 

INPT 

91001 

OTPT -1001 * 


8 . 

(Data cards 

to be 

read by program 9\l) 


9. 

DUMP 

* 




10 . 

81Z 

-1001 

* 



i i. 

DUMP 

10428 


1 0498 2 * 


12 . 

$ IBSYS 





53. 

$CL0SE 



S.SU04, REMOVE 


14. 

$ IBSYS 





Card functions for example 2: 

1 . Def i ne job. 

2 . Pause for operator to mount 1 ibrary tape. 

3- Define processor application. The NOSOURCE option 

should always be specified to expedite pre-processing. 

4. Request reload program. 

5-6. Constitutes the REELS card series. 

7 . Program control card requesting execution of program 
91Z. Note that four control parameters are being 
supplied to the program. 
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8. Data cards which will be read by 9 1Z. The program 
must have some means of recognizing the last card it 
is to read. 

9- Program control card requesting execution of the 
dump program with standard parameters. Note that 
program 71 Z was the last program executed up to 
this point, due to the direct chain from 91 Z. 

10. Program control card requesting execution of program 
81 Z . One control parameter must be supplied to the 
program. 

11. Program control card requesting execution of the dump 
program. The area of core storage from decimal 
locations 10428 through 10498 will be dumped in integer 
format . 

12. Signifies end of job deck and indicates that SPACE 
is to return to IBJOB, after which control will be 
given to IBSYS. 

13* Unloads reel 527 to prevent destruction by subsequent 
jobs . 

14. Card is redundant; however, must be included at the 
end of every job. 


Example 3* Create the library and test it: 


CARD 

^NUMBER^ 

'Tard^ 

COLUMN 


8 

16 


I . 

$J08 


CREATE LIBE AND TEST 


2. 

$PAUSE 


READY REEL 527 ON S.SU04 


3* 

$ 1 BJOB 

LIBE 

LOG IC,C0PY=UO4= 104 


( 1 nsert 

cards 4-28, 

inclusive, of example l) 


k. 

$ 1 BJOB 

TST527 

NOSOURCE 


5- 

$REL0AD 


I04,NAME=SPACE,SRCH 


( Insert 

cards 5 - 1 2 , 

inclusive, of example 2) 


6. 

$CL0SE 


I04R, REMOVE 


7- 

$ IBSYS 
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Card functions for example 3* 

1 - Define job. 

2 . Pause for operator to mount reel 527. 

3 . Define processor application. Note that a reservation 
code is assigned to the unit to prevent the reel from 
being unloaded at the end of the first application. 

4. Define next processor application. 

5. Request reload program. 

6- Cancel reservation code and remove reel 527* 

7* Required at end of job. 
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THE TYPEWRITER LISTING 


The purpose of the typewriter listing is to provide the operator 
with a list of mounting instructions, and the user with a record of 
all programs executed. Use of the typewriter is a relatively 
expensive operation, and an effort has been made to minimize its 
useage. 

The monitor always identifies itself at the outset of an 
application by typing the following message: 

SPACE - VER. x, MOD. y HAS CONTROL 

Appropriate version and mod levels will be supplied to the message. 
Following this, a list of mounting instructions, if applicable, will 
be issued to the operator, followed by a halt. For example: 

READY REEL 91 ON B4. 

READY REEL 1 395 ON C 3 . 

OPER. ACTION PAUSE 

The remainder of the typewriter listing will consist of the order 
and name of each program as it is executed, interspersed with error 
or unusual condition diagnostics, if any. The last two examples 
given in section 3 * 2.2 might have produced the following: 

1. 91Z 

2. 71Z 

3 . DUMP 

4. 81 Z 

5. DUMP 

6 . UTL1TY 


3-3-01 



3.4 RELATED USER INFORMATION 

a. The monitor will not issue mounting instructions for a 
reel which is assigned to a unit via an Iyy(R) or Uxx Iyy 
option, unless the given unit is not in ready status. 

b. Permanent reels will always be unloaded at the end of the 
job, except those which have been assigned to units via 

the Iyy or Uxx Iyy option. All other reels will be rewound. 

c. The reel header label created or verified by the monitor 
for every reel used in a job consists of a five word 
physical record, as follows: 

Word 1 - SPACE (BCD) 

Word 2 - Reel number (integer) 

Word 3 - Creation date (BCD, MMDDYY) 

Word 4 - Job name on $CHAIN card (BCD) 

Word 5 - A checksum of words 1-4. 

Only words l, 2 and 5 are verified when a label is read. 

d. All labels and data files are in high density binary mode. 

e. If an interval timer is available (and operative), the 
monitor will indicate the total number of both green and 
red light seconds which have expired in the job before 
returning to I B JOB • 

f. The REELS card series is always written on S.S0U1 in card 
image form. 

g. The user should always specify a SPACE application on the 
machine request card. 

h. To permit adaptability according to user requirements, the 
following specifications exist as assembly parameters and 
may readily be changed, should the need arise. The nominal 
assignment in the distributed version appears to the right 
of the associated specification: 


1. 

Buffer size 

257 

2. 

Length of HC block 

100 

3- 

Length of reel header labels 

5 

k. 

Length of file labels 

12 

5- 

Max. number of reels permitted 

15 

6 . 

Single or double buffering 

Double 

7- 

Block sequence checking 

Yes 

8 . 

Block check sum verification 

Yes 
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SECTION 4 


RELATED SUBROUTINES 


4. 1 GENERALIZED SORTING 

Two flexible subroutines are available for the SPACE programmer 
enabling him to sort either an internal block of logical records, or 
a given data file. The sorting process, in both cases, consists of 
arranging the logical records in an ascending ordered sequence, with 
respect to a certain word (or words) within each of the records. 

These words constitute the 'sort keys', and the order in which they 
are specified establishes how the records are to be sorted. The 
first sort key given is termed the major key. Sort keys following 
the major key, if any, are termed the first minor key, second minor 
key, etc. Whenever two records are compared during the sorting 
process, the major key in one record is compared with the major key 
in the other record to determine which record is the smallest. Should 
the major keys compare equal, the first minor keys, if specified, are 
compared. This process continues through the minor keys until either 
an unequal compare occurs, or no more keys remain for comparison. 

Each of the routines has the ability of comparing individual keys 
via an arithmetic compare (CLA-CAS), or a logical compare (CAL-LAS). 

No provision has been made for specifying collating sequences, nor 
preserving the sequence of presorted strings. If sequence preservation 
is necessary, the programmer can append a record sequence word to each 
logical record and specify this word as the last minor sort key. 

4.1.1 THE INTERNAL SORT ROUTINE 

The internal sort routine may be employed to sort a given block 
of contiguous logical records. Linkage must be as follows: 
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CALL SORT ( FWA , NREC , LRS , KEY 1 , KEY2 • • • , KEYN ) 


where, FWA 


The first word address of the block of records 
to be sorted. 


NREC = 
LRS = 

KEY1 = 

KEY 2 = 

KEYN = 


The address of a location containing the number 
of records in the block. 


The address of a location containing the logical 
record size; i.e., the length, in words, of each 
record . 


The address of a location containing the relative 
position of the major sort key; e.g., if the sixth 
word of each record is to be the major key, then 
C (KEY 1 ) = 6. 


The address of a location containing the relative 
position of the first minor sort key. 

The address of a location containing the relative 
pos i t ion of the (N-l)th 

minor sort key. 


The following restrictions/conventions apply to the use of the 

internal sort routine: 

a. Parameters NREC, LRS and KEY1 through KEYN must be expressed as 
right-adjusted integers. 

b. The sign of each individual key specified establishes the type 
of compare to be used for the key. If the sign is plus, a 
CLA-CAS instruction combination will be used; if minus, a 
CAL-LAS combination will be used. Any number of keys may be 
specif ied. 

c. No validity checks are made on the arguments given to the 
routine. 

d- The most time consuming sort application will occur when all 
records are presorted in reverse order with respect only to 
the last minor key. For such an application, the exact number 
of machine instructions (l) required to sort the block is given 
by the following equation: 

I = 4(NREC-1) {NREC[ 6 (LR$) + 14(NKEY$) + 3] + 20 } + 38 

This equation also holds for the special cases in which NREC = 0, 
or NREC = 1. 

e. The entire routine occupies 73 decimal locations. 

f. The sorting technique employed is depicted by the following 
flow chart. Here, Rj represents the jth record of the block. 


4 - 1-02 














1.2 FILE SORTING WITH GSMRGE 


With many sorting applications, the logical records constitute 
a data file on an external recording medium. By employing the 
following subroutine, the data file can be sorted, thus creating a 
new file reflecting the logical records in ordered sequence. Linkage 
must be as fol lows: 

CALL GSMRGE ( I F I LE , OF I LE , KEY 1 , KEY2, • • • , KEYN ) 

where, IFILE = The address of a location containing the 

file number of the file to be sorted 
(input file). 

OFILE = The address of a location containing 
either the desired file number of the 
sorted file to be created by GSMRGE 
(output file), or zero if the user has 
no preference concerning the output file 
number. In the latter case, GSMRGE will 
store the output file number in location 
OFILE before returning to the caller. 

The sort keys, KEY1 through KEYN, are defined and must be used in 
the same manner as with the internal sort routine. 

The technique which is employed to sort a given file consists 
of four logical phases--each phase performing a specific function 
of the sorting operation. A brief description of the four phases, 
in order of execution, follows: 

Phase 1: The Edit Phase. 

The edit phase is primarily devoted towards analyzing and 
verifying call arguments, defining record storage areas for 
subsequent phases, and compiling a calling sequence to the 
internal sort routine for use by phase two. The input file 
is opened during this phase, and an available work file (W0RK1 ) 
is selected to accommodate the first sorted string which will 
be developed in phase two. If OFILE has been specified, and, 
if it is not on the same reel as IFILE, it will be chosen as 
W0RK1 . 

Phase 2: The Internal Sort Phase. 

The function of the internal sort phase is to develop strings 
of sorted records read from the input file, and place these 
strings alternately on two output work files. The second 
such work file (W0RK2) will not be located until the need for 
it becomes apparent; i.e., when the second string is developed. 

If only one string is generated during this phase, control 
passes to phase four. 
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Phase 3: The Merge Phase. 

The function of the merge phase is to elongate the strings 
produced by phase two via a second order of merge until only 
one string exists, which constitutes the sorted file. To 
accomplish this, the record storage area defined during the 
edit phase is divided into two read buffers, and each of these 
buffers are filled with records read from files W0RK1 and 
W 0 RK 2 , respectively. An output work file (WORK 3 ) is located 
to accommodate the first elongated string developed during 
the first merge pass. A fourth work file (W0RK4) will be 
located when the need for it becomes apparent; i.e., if a 
second elongated string is developed. The merge process begins 
by comparing the first record in one buffer with the first 
record in the other buffer. The lowest of the two records is 
then written in file WORK 3 . From this point on, the process 
continues by comparing the next unused record of one buffer 
with the next unused record of the other buffer. The lowest 
of these two records is then compared with the last record which 
was written, and, if the former is higher than the latter, it 
is added to the file. Whenever one of the buffers is emptied, 
it is refilled from the appropriate input file. Eventually, 
stepdowns will occur in both buffers; i.e., a point will be 
reached where the last record added to the output file is 
higher than either of the records compared in the two buffers. 

At this time, the current output file is suspended, and the 
process resumes using the other output file. Thus, the 
elongated strings will be alternately written on the two output 
files, and, the length of any such string will be at least 
twice that of any string read from either of the input files. 

The end of the merge pass occurs when both input files have 
been emptied. If only one output file was used during the pass, 
control passes to phase four; otherwise, input and output files 
are switched and the next merge pass is started. 

Phase 4: The Posting Phase 

The posting phase is executed when a single string has been 
developed on an output file. If the user did not indicate a 
preference of output files, the file number of this file is 
placed in location OFILE, and control is returned to the call- 
ing program. If an output file preference was indicated, a 
file copy, if necessary, is performed to produce the sorted 
output on the specified file. 


4. 1.2.1 RELATED INFORMATION 


a. The record storage area defined in the edit phase consists 
of all locations between the upper and lower memory breaks, 
these of which are contained in the address of S.SLOC +3 and 
decrement of S.SLOC+4, respectively. 
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b . The search for available working files always begins with 
the first entry in the REELS Table. A given reel will be 
judged available only if the following criteria are satisfied: 

1. No file is currently active on the reel. 

2. The reel is not logically file protected. 

3 . The reel is not currently in a deferred state. 

4. The position of the trailer label is known. Note that 

the position of the trailer will be known if (a) the 

reel is mediary, or (b) any file has previously been 
written on the reel during the job, or (c) the NOLABEL 
option was exercised in the REELS card series. 

When an available reel is found, the file number of the work 
file is computed by multiplying the reel number by 1000 and 
adding one plus the corresponding entry in the TRLPOS table. 
Thus, no data file can ever be inadvertently destroyed by 
GSMRGE. 

c. All files used by the subroutine, including the final output 
file, are closed before returning to the calling program. 

d. The entire subroutine occupies 597 storage locations. 

Virtual control sections include READB1, READB2, ABOUT), 

AB0UT2, ENOF, OEDIT, SPACE, SORT, S.SLOC and S.XOVA. 

4. 1.2.2 ASSOCIATED ERROR DIAGNOSTICS 

If an error is detected by the subroutine, an appropriate 
diagnostic will be written on S.S0U1, followed with a direct chain 
to the dump program. The diagnostic will always include the BCD 
name of the program currently in execution, the absolute octal loca- 
tion of the call to GSMRGE, and its associated internal formula 
number (IFN), if one exists. The error comments, together with the 
condi tion(s) which can cause the error are as follows: 

1. NO SORT KEYS. 

At least one sort key must be supplied to the routine. 

2. BAD SORT KEY SPECIFIED. 

The magnitude of a given sort key either exceeds the LRS of the 
file, or is zero. 
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3. INSUFFICIENT INTERNAL SORT AREA. 

The record storage area defined during the edit phase is not 
large enough to accommodate at least three logical records. 

4. INSUFFICIENT MERGE TAPES. 

An available work file cannot be located. Note that this 
condition could occur in any of the first three phases. 
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BCD OUTPUT VIA GGOUT 


This is a highly flexible, interpretive output subroutine, con- 
trolled by the programmer via pseudo-operations placed in the calling 
sequence. It will write a given line on S.S0U1 and/or type it, convert 
floating point to fixed- or floating-point decimal numbers, fixed- 
point binary numbers to decimal, any 36 -bit word to octal; and will 
print words already set in memory in binary-coded decimal form. Note 
that the routine can only be accessed via a TSX linkage and hence, 
is applicable only with MAP coded programs or subroutines. 

4.2.1 CONVERSION SPECIFICATIONS 

Use of the GGOUT subroutine will involve at least three instruc- 
tions, the first of which is the entry instruction, followed by one 
of the conversion pseudo-instructions listed in Table 4-1, followed 
by a line-spacing instruction (PON or MON). These pseudo-operations 
will accomplish the appropriate conversion and store the word in 
the 1 ine image. 


Table 4-1 

GGOUT Pseudo-Operations 


Code 

Comment 

Expl anat ion 

PZE 

Plus Zero 

Binary-to-Octal (Logical) Conversion. 

MZE 

Minus Zero 

Integer-to- Integer Conversion. 

PON 

Plus One 

S.S0U1 Line-Spacing Instruction. 

MON 

Minus One 

Indicator for a type request. 

PTW 

Plus Two 

Fixed-to-Fixed Conversion. 

MTW 

Minus Two 

Float ing-to-Float ing Conversion. 

PTH 

Plus Three 

BCD-to-BCD Conversion. 

MTH 

l 

Minus Three 

Floating-to-Fixed Conversion. 
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Note that in Table 4-2, the symbols D, PPP; and NN appear in 
the decrement. PPP, which appears in all the decrements, denotes 
the end print-wheel position and thus determines the column of the 
last symbol of a word. NN, used only with the PTH operation, 
indicates the number of BCD words (six characters each) to be printed, 
starting with the one in the address K. The normal range of PPP is 

001 to 132, hence the range of NN is 01 to 22. Normally, then, the 

largest possible decrement is 22132. The D in the decrement indicates 
the number of decimal places to be used in the output, and has the 

range of 0 to 8 . If, however, D, or NN is used, the PPP must always 

consist of a three-digit number (e.g., if DD is 8 , and PPP is 15, 
then DDPPP must be 8015)* 

The tag, shown, in Table 4-2, may be used to modify the address 
of the conversion instructions. The tag may be a 0, 1, or 2. If a 
1 or 2 is used, the modified address will be K minus the contents of 
the corresponding index register. 

Table 4-2 

Ps eudo -Opera t ion I nst rue t ions 


Code 

— . 

Address 

Tag 

Decrement 

PZE 

K 

T 

ppp 

MZE 

K 

T 

ppp 

PTW 

K 

1 

DPPP 

MTV 

K 

T 

DPPP 

PTH 

K 

T 

NNPPP 

MTH 

K 

T 

DPPP 
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,2.2 PSEUDO -OPERATION DESCRIPTIONS 


A brief description of each of the pseudo-operations associated 
with the GGOUT subroutine is presented here. Because address modifica- 
tion is permitted with the conversion operations, the effective 
address will be shown as L. 

4. 2. 2.1 THE PTH PSEUDO-OPERATION 

This instruction is used to write or type, from left to right, 

BCD words located in address positions L to L + NN. The last 
character of word NN is printed in print position PPP. In most 
cases, this character will be a blank space, since BCI listings 
usually do not contain exactly six characters in the last word. 

Also, 22 words may be printed with one PTH instruction, even though 
only ten can be entered into memory with a single BCI instruction. 

If just the print position is stated (i.e., NN is omitted from 
the decrement), the word occupying position L will be printed with 
its last character in position PPP. However, if NN is correctly 
indicated, but PPP is not big enough to contain NN words, the PPP 
will automatically be increased to print the line in the first NN + 1 
word location. 

Greater speed may be achieved using the PTH conversion by 
employing multiples of 6 for PPP, since a 6-character word is 
transferred to the image as a whole. If PPP/6 leaves a remainder 
the transfer proceeds character-by-character. 

4. 2.2. 2 THE MTH PSEUDO-OPERATION 

This instruction converts the floating binary number in location 
L to a D-place fixed decimal number, where 0 < 0 < 8. For D = 0, 
a rounded integer without the decimal point is the output. For a 
negative number, the minus sign is printed to the right of the number; 
this position is determined by the print-wheel position. Any number (N), 
where N > 2 35^ can be converted to a floating-point decimal number by 
MTH* 
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’ 2.2.3 THE PTW PSEUDO-OPERATION 

This operation converts a fixed-point binary number to a D-place 
fixed decimal number, where 0 < D < 8. The location of the binary 
point is indicated in the address portion of a PZE instruction, which 
must follow the PTW. If the binary point is outside the 0 to 35 range, 
the program will go to the next pseudo-operation. The binary point 
in the PZE address is determined by counting from the left-hand end 
of the word in location L. 

4. 2.2. 4 THE MTV PSEUDO -OPERATION 

This operation converts the binary, floating number of location L 
to a D-place decimal number, where 1 < D < 8. The answer format is: 

X.XX XX+ YY+, 

where the positive signs and leading zero of YY, if any, are actually 
indicated by a blank space. A floating-point number whose binary 
exponent is zero is printed out as an integer by MZE. 

4. 2.2. 5 THE PZE PSEUDO-OPERATION 

This instruction converts the logical word in location L to a 
12-digit octal number with no sign. A one-space separation is 
inserted between digits 6 and 7* 

This conversion is accomplished by inserting three binary zeros 
before each set of three binary digits of the number in location L, 
thus transforming any three binary bits to the appropriate octal 
number expressed in BCD code. The PTH operation is used internally 
by PZE to transfer this information to the output. 

4. 2. 2.6 THE MZE PSEUDO -QPERAT ION 

This operation converts the contents of location L to a decimal 
integer with no decimal point. The sign is located immediately to 
the right of the integer. 
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^.2.7 THE PON PSEUDO "OPERATION 

This operation is a line-spacing instruction for writing on 
S.S0U1. 

The address portion of the instruction may be used for regular 
spacing, double spacing, or to restore a page before printing by 
specifying an address of 0, 3 , or 1, respectively. If the address 
of a PON is -1, GGOUT will not alter the first character in the 
line to be put on tape. 

4. 2. 2. 8 THE MON PSEUDO-OPERATION 

This operation indicates that the line image is to be typed. 

The decrement, tag and address of this pseudo-operation are ignored. 
A line may be written on S.S0U1 and typed by following the PON 
with a HON. 
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4.3 


UTILITY ROUTINES 


4 . 3 .I FILE NUMBER ACQUISITION WITH GETF 

In many instances, a program will require the use of one or 
more working files for temporary use. To eliminate the need of 
depending upon fixed file numbers, the programmer can employ GETF 
to locate an available working file. The criteria used to judge 
availability is identical to that described in part b of paragraph 
4. 1.2.1. Linkage must be as follows: 

CALL GETF(AVAILF) 

The argument, AVAILF, is the location into which GETF will store 
the file number. Note that a reel with an active file on it will 
be judged unavailable by GETF; hence, several working files could 
be located at one time with the following sequence: 

CALL GETF (WORK 1) 

CALL AB0UT1 (W0RK1 ,LRS1 ) 

CALL GETF(W0RK2) 

CALL ABOUT 1 (W0RK2,LRS2) 

CALL GETF(W0RK3) 


If GETF is unable to locate a working file, the condition will be 
treated as an error and a diagnostic will be given indicating the 
current file activity status of all reels. Execution of the calling 
program will then be terminated by returning to the monitor. 

4.3.2 OBTAINING THE CURRENT DATE 

A subroutine is available to the SPACE programmer enabling him 
to obtain the current date (including the day of the week) for page 
headings, etc. Linkage to the routine must be as follows: 

CALL MTWTF (ARRAY ( 1 ) ) 


4 - 3-01 


The argument, ARRAY, is the location of the first word of a five 
cell array into which the BCD date is to be stored by MTWTF. The 
date format will be as follows: 


ARRAY (1 ) 
ARRAY (2) 
ARRAY(3) 
ARRAY (4) 
ARRAY (5) 


W E D N E S 
D A Y b A P 
R I L b 7 , 
b 1 9 6 5 b 
b b b b b b 


NASA- Langley, 1966 
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